Celestin Apprentice 5

home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / System / Docu / Dialog < prev next >
MacBinary | 1996-07-08 | 19.9 KB | [oODC/obnF]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Dialog
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`100%`	file	MacBinary II, inited, Mon Jul 8 09:37:02 1996, modified Mon Jul 8 09:37:17 1996, creator 'obnF', type 'oODC', 19781 bytes "Dialog" , at 0x4dc5 318 bytes resource	default (weak)
`99%`	file	data	default
`66%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`33%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[oODC]`
macFileCreator	`[obnF]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 44 69 61 6c 6f 67 | 00 00 00 00 00 00 00 00 |..Dialog|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 4d 45 00 | 00 01 3e ae 06 bf 7e ae |.....ME.|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 05 a8 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 c2 |sc......|........|
|00000100| 4c 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |L.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 10 4c |Desc....|.......L|
|00000160| 00 00 09 00 00 00 08 4c | 00 00 00 00 00 00 00 82 |.......L|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 b2 4b 00 00 |........|.....K..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 31 4a 00 00 |sc......|....1J..|
|000001f0| 0f 00 00 00 29 4a 00 00 | 00 00 00 00 00 00 7d 09 |....)J..|......}.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 36 00 00 00 00 00 00 00 |........|6.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | b4 21 02 00 00 00 00 00 |lvetica.|.!......|
|00000250| 90 01 00 00 00 00 00 00 | 00 00 00 2a 75 15 54 c8 |........|...*u.T.|
|00000260| 06 00 82 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 53 |....Text|Rulers.S|
|00000270| 74 64 52 75 6c 65 72 44 | 65 73 63 00 f1 54 65 78 |tdRulerD|esc..Tex|
|00000280| 74 52 75 6c 65 72 73 2e | 52 75 6c 65 72 44 65 73 |tRulers.|RulerDes|
|00000290| 63 00 f2 03 00 00 00 00 | 00 00 00 ac 00 00 00 07 |c.......|........|
|000002a0| 00 00 00 a3 00 00 00 00 | 00 00 83 f1 54 65 78 74 |........|....Text|
|000002b0| 52 75 6c 65 72 73 2e 53 | 74 64 53 74 79 6c 65 44 |Rulers.S|tdStyleD|
|000002c0| 65 73 63 00 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |esc..Tex|tRulers.|
|000002d0| 53 74 79 6c 65 44 65 73 | 63 00 f2 07 00 00 00 00 |StyleDes|c.......|
|000002e0| 00 00 00 00 00 00 00 08 | 00 00 00 5a 00 00 00 00 |........|...Z....|
|000002f0| 00 00 00 82 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |.....Tex|tRulers.|
|00000300| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000310| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 24 00 00 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000330| 00 00 00 00 00 00 c8 0d | 02 00 c0 a8 00 00 88 b6 |........|........|
|00000340| 02 00 03 00 00 00 00 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000350| 00 00 00 00 00 34 00 00 | 00 00 00 00 00 22 00 00 |.....4..|....."..|
|00000360| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000370| 74 69 63 61 00 c0 19 03 | 00 00 00 00 00 bc 02 00 |tica....|........|
|00000380| 00 00 00 06 00 00 00 00 | 02 00 00 00 02 82 f2 0d |........|........|
|00000390| 00 00 00 00 00 00 00 2f | 00 00 00 00 00 00 00 22 |......./|......."|
|000003a0| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|000003b0| 76 65 74 69 63 61 00 18 | f0 01 00 00 00 00 00 90 |vetica..|........|
|000003c0| 01 00 00 00 00 dc 02 00 | 00 03 82 f2 0d 00 00 00 |........|........|
|000003d0| 00 00 00 00 39 00 00 00 | 00 00 00 00 22 00 00 00 |....9...|...."...|
|000003e0| 00 00 00 00 00 01 00 00 | 00 00 48 65 6c 76 65 74 |........|..Helvet|
|000003f0| 69 63 61 00 7c be 01 00 | 00 00 00 00 90 01 00 00 |ica.|...|........|
|00000400| 00 00 01 00 00 00 02 25 | 06 00 00 00 09 00 00 00 |.......%|........|
|00000410| 04 82 f2 0d 00 00 00 00 | 00 00 00 48 00 00 00 00 |........|...H....|
|00000420| 00 00 00 22 00 00 00 00 | 00 00 00 00 01 00 00 00 |..."....|........|
|00000430| 00 48 65 6c 76 65 74 69 | 63 61 00 b4 21 02 00 01 |.Helveti|ca..!...|
|00000440| 00 00 00 90 01 00 00 00 | 00 06 00 00 00 00 cd 00 |........|........|
|00000450| 00 00 04 12 00 00 00 00 | 02 00 00 00 04 08 00 00 |........|........|
|00000460| 00 00 8a 01 00 00 05 82 | f2 0d 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 22 00 00 00 00 00 00 |........|."......|
|00000480| 00 00 01 00 00 00 00 48 | 65 6c 76 65 74 69 63 61 |.......H|elvetica|
|00000490| 00 b4 21 02 00 00 00 00 | 00 bc 02 00 00 00 00 07 |..!.....|........|
|000004a0| 00 00 00 00 21 00 00 00 | 04 02 00 00 00 00 0c 00 |....!...|........|
|000004b0| 00 00 04 0a 00 00 00 00 | 61 00 00 00 05 08 00 00 |........|a.......|
|000004c0| 00 00 21 00 00 00 04 02 | 00 00 00 00 0c 00 00 00 |..!.....|........|
|000004d0| 04 0a 00 00 00 00 60 00 | 00 00 05 07 00 00 00 00 |......`.|........|
|000004e0| 21 00 00 00 04 02 00 00 | 00 00 0c 00 00 00 04 0a |!.......|........|
|000004f0| 00 00 00 00 46 00 00 00 | 04 09 00 00 00 00 06 00 |....F...|........|
|00000500| 00 00 04 08 00 00 00 00 | 1e 00 00 00 04 08 00 00 |........|........|
|00000510| 00 00 02 00 00 00 04 08 | 00 00 00 00 05 00 00 00 |........|........|
|00000520| 04 03 00 00 00 00 12 00 | 00 00 05 08 00 00 00 00 |........|........|
|00000530| 21 00 00 00 04 02 00 00 | 00 00 0c 00 00 00 04 0a |!.......|........|
|00000540| 00 00 00 00 2e 00 00 00 | 04 0a 00 00 00 00 06 00 |........|........|
|00000550| 00 00 04 09 00 00 00 00 | 04 00 00 00 04 08 00 00 |........|........|
|00000560| 00 00 47 00 00 00 05 08 | 00 00 00 00 21 00 00 00 |..G.....|....!...|
|00000570| 04 02 00 00 00 00 0c 00 | 00 00 04 0a 00 00 00 00 |........|........|
|00000580| 2e 00 00 00 04 0a 00 00 | 00 00 06 00 00 00 04 09 |........|........|
|00000590| 00 00 00 00 04 00 00 00 | 04 08 00 00 00 00 43 00 |........|......C.|
|000005a0| 00 00 05 03 00 00 00 00 | 21 00 00 00 04 02 00 00 |........|!.......|
|000005b0| 00 00 0c 00 00 00 04 0a | 00 00 00 00 22 00 00 00 |........|...."...|
|000005c0| 04 09 00 00 00 00 04 00 | 00 00 04 08 00 00 00 00 |........|........|
|000005d0| 28 00 00 00 05 06 00 00 | 00 00 62 00 00 00 05 0a |(.......|..b.....|
|000005e0| 00 00 00 00 95 00 00 00 | 05 05 00 00 00 00 c2 00 |........|........|
|000005f0| 00 00 05 07 00 00 00 00 | 39 00 00 00 04 01 00 00 |........|9.......|
|00000600| 00 00 29 00 00 00 04 01 | 00 00 00 00 83 00 00 00 |..).....|........|
|00000610| 05 0b 00 00 00 00 66 00 | 00 00 04 07 00 00 00 00 |......f.|........|
|00000620| 6f 00 00 00 04 01 00 00 | 00 00 3b 00 00 00 05 03 |o.......|..;.....|
|00000630| 00 00 00 00 33 00 00 00 | 05 05 00 00 00 00 a3 01 |....3...|........|
|00000640| 00 00 05 04 00 00 00 00 | 2c 00 00 00 05 09 00 00 |........|,.......|
|00000650| 00 00 b1 00 00 00 04 03 | 00 00 00 00 13 00 00 00 |........|........|
|00000660| 05 03 00 00 00 00 27 00 | 00 00 05 04 00 00 00 00 |......'.|........|
|00000670| 38 00 00 00 05 08 00 00 | 00 00 7b 00 00 00 05 04 |8.......|..{.....|
|00000680| 00 00 00 00 31 00 00 00 | 04 0a 00 00 00 00 2c 00 |....1...|......,.|
|00000690| 00 00 05 04 00 00 00 00 | 31 00 00 00 04 0a 00 00 |........|1.......|
|000006a0| 00 00 2c 00 00 00 05 02 | 00 00 00 00 3b 00 00 00 |..,.....|....;...|
|000006b0| 04 01 00 00 00 00 17 00 | 00 00 05 05 00 00 00 00 |........|........|
|000006c0| 2b 00 00 00 05 03 00 00 | 00 00 59 00 00 00 04 09 |+.......|..Y.....|
|000006d0| 00 00 00 00 08 00 00 00 | 05 05 00 00 00 00 13 00 |........|........|
|000006e0| 00 00 05 03 00 00 00 00 | 35 00 00 00 04 0b 00 00 |........|5.......|
|000006f0| 00 00 29 00 00 00 05 05 | 00 00 00 00 2c 00 00 00 |..).....|....,...|
|00000700| 05 06 00 00 00 00 4f 00 | 00 00 05 04 00 00 00 00 |......O.|........|
|00000710| 1c 00 00 00 04 0a 00 00 | 00 00 04 00 00 00 05 01 |........|........|
|00000720| 00 00 00 00 05 00 00 00 | 05 04 00 00 00 00 1c 00 |........|........|
|00000730| 00 00 04 0a 00 00 00 00 | 0a 00 00 00 05 04 00 00 |........|........|
|00000740| 00 00 26 00 00 00 04 0b | 00 00 00 00 04 00 00 00 |..&.....|........|
|00000750| 05 03 00 00 00 00 44 00 | 00 00 05 05 00 00 00 00 |......D.|........|
|00000760| 3f 00 00 00 04 1d 00 00 | 00 00 0a 00 00 00 05 06 |?.......|........|
|00000770| 00 00 00 00 36 00 00 00 | 05 03 00 00 00 00 31 00 |....6...|......1.|
|00000780| 00 00 05 06 00 00 00 00 | 24 00 00 00 05 03 00 00 |........|$.......|
|00000790| 00 00 66 00 00 00 05 05 | 00 00 00 00 22 00 00 00 |..f.....|...."...|
|000007a0| 05 03 00 00 00 00 5e 00 | 00 00 05 03 00 00 00 00 |......^.|........|
|000007b0| 83 00 00 00 04 09 00 00 | 00 00 22 00 00 00 04 03 |........|..".....|
|000007c0| 00 00 00 00 03 00 00 00 | 05 08 00 00 00 00 1b 00 |........|........|
|000007d0| 00 00 04 05 00 00 00 00 | 1b 00 00 00 04 04 00 00 |........|........|
|000007e0| 00 00 3a 00 00 00 05 07 | 00 00 00 00 1b 00 00 00 |..:.....|........|
|000007f0| 04 05 00 00 00 00 1b 00 | 00 00 04 04 00 00 00 00 |........|........|
|00000800| 28 00 00 00 05 05 00 00 | 00 00 1b 00 00 00 04 05 |(.......|........|
|00000810| 00 00 00 00 1b 00 00 00 | 04 04 00 00 00 00 0c 00 |........|........|
|00000820| 00 00 04 05 00 00 00 00 | 16 00 00 00 05 08 00 00 |........|........|
|00000830| 00 00 1b 00 00 00 04 05 | 00 00 00 00 1b 00 00 00 |........|........|
|00000840| 04 04 00 00 00 00 0c 00 | 00 00 04 08 00 00 00 00 |........|........|
|00000850| 16 00 00 00 05 06 00 00 | 00 00 94 00 00 00 05 09 |........|........|
|00000860| 00 00 00 00 7a 00 00 00 | 04 03 00 00 00 00 ef 00 |....z...|........|
|00000870| 00 00 04 04 00 00 00 00 | 6b 01 00 00 04 0b 00 00 |........|k.......|
|00000880| 00 00 9c 00 00 00 04 0b | 00 00 00 00 c5 01 00 00 |........|........|
|00000890| 04 03 00 00 00 00 5f 00 | 00 00 05 0a 00 00 00 00 |......_.|........|
|000008a0| c5 00 00 00 04 02 00 00 | 00 00 d0 00 00 00 04 08 |........|........|
|000008b0| 00 00 00 00 29 00 00 00 | 04 0a 00 00 00 00 18 00 |....)...|........|
|000008c0| 00 00 04 08 00 00 00 00 | 32 00 00 00 04 0a 00 00 |........|2.......|
|000008d0| 00 00 1a 00 00 00 04 08 | 00 00 00 00 2a 00 00 00 |........|....*...|
|000008e0| 04 0a 00 00 00 00 13 00 | 00 00 04 09 00 00 00 00 |........|........|
|000008f0| 07 00 00 00 05 0c 00 00 | 00 00 66 00 00 00 05 0b |........|..f.....|
|00000900| 00 00 00 00 48 00 00 00 | 04 13 00 00 00 00 11 00 |....H...|........|
|00000910| 00 00 04 0f 00 00 00 00 | 05 00 00 00 04 0a 00 00 |........|........|
|00000920| 00 00 23 00 00 00 05 07 | 00 00 00 00 70 00 00 00 |..#.....|....p...|
|00000930| 05 08 00 00 00 00 9d 00 | 00 00 05 07 00 00 00 00 |........|........|
|00000940| 80 00 00 00 05 06 00 00 | 00 00 63 00 00 00 04 01 |........|..c.....|
|00000950| 00 00 00 00 cd 00 00 00 | 05 0a 00 00 00 00 ac 00 |........|........|
|00000960| 00 00 04 06 00 00 00 00 | 0d 00 00 00 05 0b 00 00 |........|........|
|00000970| 00 00 c2 00 00 00 04 0b | 00 00 00 00 a2 00 00 00 |........|........|
|00000980| 05 0f 00 00 00 00 59 00 | 00 00 04 02 00 00 00 00 |......Y.|........|
|00000990| 0d 00 00 00 04 03 00 00 | 00 00 e8 01 00 00 04 02 |........|........|
|000009a0| 00 00 00 00 4d 00 00 00 | 04 02 00 00 00 00 32 00 |....M...|......2.|
|000009b0| 00 00 04 0e 00 00 00 00 | f7 00 00 00 05 09 00 00 |........|........|
|000009c0| 00 00 4d 00 00 00 04 0e | 00 00 00 00 83 00 00 00 |..M.....|........|
|000009d0| 05 0c 00 00 00 00 2b 00 | 00 00 04 03 00 00 00 00 |......+.|........|
|000009e0| 58 00 00 00 04 02 00 00 | 00 00 02 00 00 00 04 02 |X.......|........|
|000009f0| 00 00 00 00 06 00 00 00 | 04 02 00 00 00 00 b7 00 |........|........|
|00000a00| 00 00 05 07 00 00 00 00 | 40 00 00 00 04 0c 00 00 |........|@.......|
|00000a10| 00 00 7d 00 00 00 05 0f | 00 00 00 00 2b 00 00 00 |..}.....|....+...|
|00000a20| 04 03 00 00 00 00 58 00 | 00 00 04 02 00 00 00 00 |......X.|........|
|00000a30| 02 00 00 00 04 02 00 00 | 00 00 06 00 00 00 04 02 |........|........|
|00000a40| 00 00 00 00 11 00 00 00 | 04 0c 00 00 00 00 02 00 |........|........|
|00000a50| 00 00 04 0f 00 00 00 00 | 68 01 00 00 04 0b 00 00 |........|h.......|
|00000a60| 00 00 0d 00 00 00 05 0a | 00 00 00 00 40 00 00 00 |........|....@...|
|00000a70| 04 0f 00 00 00 00 80 00 | 00 00 05 0d 00 00 00 00 |........|........|
|00000a80| 9e 00 00 00 05 05 00 00 | 00 00 77 00 00 00 04 02 |........|..w.....|
|00000a90| 00 00 00 00 04 00 00 00 | 04 02 00 00 00 00 67 00 |........|......g.|
|00000aa0| 00 00 04 02 00 00 00 00 | 0d 00 00 00 05 0a 00 00 |........|........|
|00000ab0| 00 00 78 00 00 00 04 0b | 00 00 00 00 02 00 00 00 |..x.....|........|
|00000ac0| 04 07 00 00 00 00 b0 00 | 00 00 04 09 00 00 00 00 |........|........|
|00000ad0| 32 00 00 00 05 0a 00 00 | 00 00 b3 00 00 00 04 07 |2.......|........|
|00000ae0| 00 00 00 00 2c 00 00 00 | 04 07 00 00 00 00 38 00 |....,...|......8.|
|00000af0| 00 00 04 09 00 00 00 00 | 32 00 00 00 05 08 00 00 |........|2.......|
|00000b00| 00 00 5a 00 00 00 04 02 | 00 00 00 00 38 00 00 00 |..Z.....|....8...|
|00000b10| 05 04 00 00 00 00 32 00 | 00 00 04 04 00 00 00 00 |......2.|........|
|00000b20| 5e 00 00 00 04 03 00 00 | 00 00 33 00 00 00 04 04 |^.......|..3.....|
|00000b30| 00 00 00 00 4d 00 00 00 | 04 03 00 00 00 00 22 00 |....M...|......".|
|00000b40| 00 00 04 0d 00 00 00 00 | 02 00 00 00 04 04 00 00 |........|........|
|00000b50| 00 00 25 00 00 00 04 0d | 00 00 00 00 02 00 00 00 |..%.....|........|
|00000b60| 04 04 00 00 00 00 0a 00 | 00 00 04 08 00 00 00 00 |........|........|
|00000b70| 6c 00 00 00 05 04 00 00 | 00 00 19 00 00 00 ff 02 |l.......|........|
|00000b80| 44 69 61 6c 6f 67 0d 0d | 44 45 46 49 4e 49 54 49 |Dialog..|DEFINITI|
|00000b90| 4f 4e 20 44 69 61 6c 6f | 67 3b 0d 0d 09 49 4d 50 |ON Dialo|g;...IMP|
|00000ba0| 4f 52 54 20 44 61 74 65 | 73 2c 20 46 69 6c 65 73 |ORT Date|s, Files|
|00000bb0| 3b 0d 0d 09 43 4f 4e 53 | 54 20 70 72 65 73 73 65 |;...CONS|T presse|
|00000bc0| 64 20 3d 20 31 3b 20 72 | 65 6c 65 61 73 65 64 20 |d = 1; r|eleased |
|00000bd0| 3d 20 32 3b 20 63 68 61 | 6e 67 65 64 20 3d 20 33 |= 2; cha|nged = 3|
|00000be0| 3b 20 69 6e 63 6c 75 64 | 65 64 20 3d 20 35 3b 20 |; includ|ed = 5; |
|00000bf0| 65 78 63 6c 75 64 65 64 | 20 3d 20 36 3b 20 73 65 |excluded| = 6; se|
|00000c00| 74 20 3d 20 37 3b 0d 0d | 09 54 59 50 45 0d 09 09 |t = 7;..|.TYPE...|
|00000c10| 53 74 72 69 6e 67 20 3d | 20 41 52 52 41 59 20 32 |String =| ARRAY 2|
|00000c20| 35 36 20 4f 46 20 43 48 | 41 52 3b 0d 0d 09 09 49 |56 OF CH|AR;....I|
|00000c30| 6e 74 65 72 61 63 74 6f | 72 20 3d 20 52 45 43 4f |nteracto|r = RECO|
|00000c40| 52 44 20 45 4e 44 3b 0d | 0d 09 09 46 69 65 6c 64 |RD END;.|...Field|
|00000c50| 20 3d 20 52 45 43 4f 52 | 44 20 0d 09 09 09 50 52 | = RECOR|D ....PR|
|00000c60| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 66 3a 20 |OCEDURE |(VAR f: |
|00000c70| 46 69 65 6c 64 29 20 47 | 65 74 4e 61 6d 65 20 28 |Field) G|etName (|
|00000c80| 69 3a 20 4c 4f 4e 47 49 | 4e 54 3b 20 56 41 52 20 |i: LONGI|NT; VAR |
|00000c90| 6e 61 6d 65 3a 20 53 74 | 72 69 6e 67 29 0d 09 09 |name: St|ring)...|
|00000ca0| 45 4e 44 3b 0d 0d 09 09 | 45 6e 75 6d 65 72 61 74 |END;....|Enumerat|
|00000cb0| 69 6f 6e 20 3d 20 52 45 | 43 4f 52 44 20 28 46 69 |ion = RE|CORD (Fi|
|00000cc0| 65 6c 64 29 0d 09 09 09 | 76 61 6c 3a 20 4c 4f 4e |eld)....|val: LON|
|00000cd0| 47 49 4e 54 0d 09 09 45 | 4e 44 3b 0d 0d 09 09 43 |GINT...E|ND;....C|
|00000ce0| 6f 6d 62 6f 20 3d 20 52 | 45 43 4f 52 44 20 28 46 |ombo = R|ECORD (F|
|00000cf0| 69 65 6c 64 29 0d 09 09 | 09 6e 61 6d 65 3a 20 53 |ield)...|.name: S|
|00000d00| 74 72 69 6e 67 0d 09 09 | 45 4e 44 3b 0d 0d 09 09 |tring...|END;....|
|00000d10| 53 65 6c 65 63 74 69 6f | 6e 20 3d 20 52 45 43 4f |Selectio|n = RECO|
|00000d20| 52 44 20 28 46 69 65 6c | 64 29 0d 09 09 09 76 61 |RD (Fiel|d)....va|
|00000d30| 6c 2c 20 6d 61 73 6b 3a | 20 53 45 54 0d 09 09 45 |l, mask:| SET...E|
|00000d40| 4e 44 3b 0d 0d 09 09 4c | 61 72 67 65 53 65 74 20 |ND;....L|argeSet |
|00000d50| 3d 20 52 45 43 4f 52 44 | 20 28 46 69 65 6c 64 29 |= RECORD| (Field)|
|00000d60| 0d 09 09 09 50 52 4f 43 | 45 44 55 52 45 20 28 56 |....PROC|EDURE (V|
|00000d70| 41 52 20 73 3a 20 4c 61 | 72 67 65 53 65 74 29 20 |AR s: La|rgeSet) |
|00000d80| 49 6e 63 6c 20 28 66 72 | 6f 6d 2c 20 74 6f 3a 20 |Incl (fr|om, to: |
|00000d90| 4c 4f 4e 47 49 4e 54 29 | 3b 0d 09 09 09 50 52 4f |LONGINT)|;....PRO|
|00000da0| 43 45 44 55 52 45 20 28 | 56 41 52 20 73 3a 20 4c |CEDURE (|VAR s: L|
|00000db0| 61 72 67 65 53 65 74 29 | 20 45 78 63 6c 20 28 66 |argeSet)| Excl (f|
|00000dc0| 72 6f 6d 2c 20 74 6f 3a | 20 4c 4f 4e 47 49 4e 54 |rom, to:| LONGINT|
|00000dd0| 29 3b 0d 09 09 09 50 52 | 4f 43 45 44 55 52 45 20 |);....PR|OCEDURE |
|00000de0| 28 56 41 52 20 73 3a 20 | 4c 61 72 67 65 53 65 74 |(VAR s: |LargeSet|
|00000df0| 29 20 49 6e 20 28 69 3a | 20 4c 4f 4e 47 49 4e 54 |) In (i:| LONGINT|
|00000e00| 29 3a 20 42 4f 4f 4c 45 | 41 4e 0d 09 09 45 4e 44 |): BOOLE|AN...END|
|00000e10| 3b 0d 0d 09 09 41 72 72 | 61 79 20 3d 20 52 45 43 |;....Arr|ay = REC|
|00000e20| 4f 52 44 0d 09 09 09 6c | 65 6e 3a 20 4c 4f 4e 47 |ORD....l|en: LONG|
|00000e30| 49 4e 54 0d 09 09 45 4e | 44 3b 0d 0d 09 09 43 6f |INT...EN|D;....Co|
|00000e40| 6c 6f 72 20 3d 20 52 45 | 43 4f 52 44 20 0d 09 09 |lor = RE|CORD ...|
|00000e50| 09 76 61 6c 3a 20 4c 4f | 4e 47 49 4e 54 0d 09 09 |.val: LO|NGINT...|
|00000e60| 45 4e 44 3b 0d 0d 09 09 | 43 75 72 72 65 6e 63 79 |END;....|Currency|
|00000e70| 20 3d 20 52 45 43 4f 52 | 44 20 0d 09 09 09 69 6e | = RECOR|D ....in|
|00000e80| 74 2c 20 66 72 61 63 3a | 20 4c 4f 4e 47 49 4e 54 |t, frac:| LONGINT|
|00000e90| 0d 09 09 45 4e 44 3b 0d | 09 09 0d 09 09 44 61 74 |...END;.|.....Dat|
|00000ea0| 65 20 3d 20 44 61 74 65 | 73 2e 44 61 74 65 3b 0d |e = Date|s.Date;.|
|00000eb0| 09 09 0d 09 09 54 69 6d | 65 20 3d 20 44 61 74 65 |.....Tim|e = Date|
|00000ec0| 73 2e 54 69 6d 65 3b 0d | 09 09 0d 09 09 53 69 7a |s.Time;.|.....Siz|
|00000ed0| 65 20 3d 20 52 45 43 4f | 52 44 0d 09 09 09 76 61 |e = RECO|RD....va|
|00000ee0| 6c 3a 20 4c 4f 4e 47 49 | 4e 54 0d 09 09 45 4e 44 |l: LONGI|NT...END|
|00000ef0| 3b 0d 0d 09 09 53 74 79 | 6c 65 20 3d 20 52 45 43 |;....Sty|le = REC|
|00000f00| 4f 52 44 20 28 53 65 6c | 65 63 74 69 6f 6e 29 20 |ORD (Sel|ection) |
|00000f10| 45 4e 44 3b 0d 0d 09 09 | 57 65 69 67 68 74 20 3d |END;....|Weight =|
|00000f20| 20 52 45 43 4f 52 44 0d | 09 09 09 76 61 6c 3a 20 | RECORD.|...val: |
|00000f30| 49 4e 54 45 47 45 52 0d | 09 09 45 4e 44 3b 0d 0d |INTEGER.|..END;..|
|00000f40| 09 09 4c 65 6e 67 74 68 | 20 3d 20 52 45 43 4f 52 |..Length| = RECOR|
|00000f50| 44 0d 09 09 09 76 61 6c | 3a 20 4c 4f 4e 47 49 4e |D....val|: LONGIN|
|00000f60| 54 0d 09 09 45 4e 44 3b | 0d 0d 09 09 55 6e 69 74 |T...END;|....Unit|
|00000f70| 73 20 3d 20 52 45 43 4f | 52 44 0d 09 09 09 76 61 |s = RECO|RD....va|
|00000f80| 6c 3a 20 4c 4f 4e 47 49 | 4e 54 0d 09 09 45 4e 44 |l: LONGI|NT...END|
|00000f90| 3b 0d 0d 09 09 50 61 72 | 20 3d 20 52 45 43 4f 52 |;....Par| = RECOR|
|00000fa0| 44 0d 09 09 09 64 69 73 | 61 62 6c 65 64 3a 20 42 |D....dis|abled: B|
|00000fb0| 4f 4f 4c 45 41 4e 3b 0d | 09 09 09 63 68 65 63 6b |OOLEAN;.|...check|
|00000fc0| 65 64 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 09 09 09 |ed: BOOL|EAN;....|
|00000fd0| 75 6e 64 65 66 3a 20 42 | 4f 4f 4c 45 41 4e 3b 0d |undef: B|OOLEAN;.|
|00000fe0| 09 09 09 72 65 61 64 4f | 6e 6c 79 3a 20 42 4f 4f |...readO|nly: BOO|
|00000ff0| 4c 45 41 4e 3b 0d 09 09 | 09 73 74 72 69 6e 67 3a |LEAN;...|.string:|
|00001000| 20 53 74 72 69 6e 67 0d | 09 09 45 4e 44 3b 0d 0d | String.|..END;..|
|00001010| 09 09 47 75 61 72 64 50 | 72 6f 63 20 3d 20 50 52 |..GuardP|roc = PR|
|00001020| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 70 61 72 |OCEDURE |(VAR par|
|00001030| 3a 20 50 61 72 29 3b 0d | 09 09 4e 6f 74 69 66 79 |: Par);.|..Notify|
|00001040| 50 72 6f 63 20 3d 20 50 | 52 4f 43 45 44 55 52 45 |Proc = P|ROCEDURE|
|00001050| 20 28 6f 70 2c 20 66 72 | 6f 6d 2c 20 74 6f 3a 20 | (op, fr|om, to: |
|00001060| 4c 4f 4e 47 49 4e 54 29 | 3b 0d 0d 09 56 41 52 0d |LONGINT)|;...VAR.|
|00001070| 09 09 6d 65 74 72 69 63 | 53 79 73 74 65 6d 3a 20 |..metric|System: |
|00001080| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 73 68 6f 77 73 |BOOLEAN;|...shows|
|00001090| 53 74 61 74 75 73 3a 20 | 42 4f 4f 4c 45 41 4e 3b |Status: |BOOLEAN;|
|000010a0| 0d 09 09 76 65 72 73 69 | 6f 6e 3a 20 49 4e 54 45 |...versi|on: INTE|
|000010b0| 47 45 52 3b 0d 09 09 70 | 6c 61 74 66 6f 72 6d 3a |GER;...p|latform:|
|000010c0| 20 49 4e 54 45 47 45 52 | 3b 0d 09 09 61 70 70 4e | INTEGER|;...appN|
|000010d0| 61 6d 65 3a 20 41 52 52 | 41 59 20 33 32 20 4f 46 |ame: ARR|AY 32 OF|
|000010e0| 20 43 48 41 52 3b 0d 0d | 09 50 52 4f 43 45 44 55 | CHAR;..|.PROCEDU|
|000010f0| 52 45 20 55 70 64 61 74 | 65 20 28 56 41 52 20 69 |RE Updat|e (VAR i|
|00001100| 3a 20 49 6e 74 65 72 61 | 63 74 6f 72 29 3b 0d 09 |: Intera|ctor);..|
|00001110| 50 52 4f 43 45 44 55 52 | 45 20 55 70 64 61 74 65 |PROCEDUR|E Update|
|00001120| 4c 69 73 74 20 28 56 41 | 52 20 66 3a 20 46 69 65 |List (VA|R f: Fie|
|00001130| 6c 64 29 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |ld);..PR|OCEDURE |
|00001140| 43 68 65 63 6b 47 75 61 | 72 64 73 3b 0d 09 50 52 |CheckGua|rds;..PR|
|00001150| 4f 43 45 44 55 52 45 20 | 4d 61 70 50 61 72 61 6d |OCEDURE |MapParam|
|00001160| 53 74 72 69 6e 67 20 28 | 69 6e 2c 20 70 30 2c 20 |String (|in, p0, |
|00001170| 70 31 2c 20 70 32 3a 20 | 41 52 52 41 59 20 4f 46 |p1, p2: |ARRAY OF|
|00001180| 20 43 48 41 52 3b 20 56 | 41 52 20 6f 75 74 3a 20 | CHAR; V|AR out: |
|00001190| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3b 0d |ARRAY OF| CHAR);.|
|000011a0| 09 50 52 4f 43 45 44 55 | 52 45 20 4d 61 70 53 74 |.PROCEDU|RE MapSt|
|000011b0| 72 69 6e 67 20 28 69 6e | 3a 20 41 52 52 41 59 20 |ring (in|: ARRAY |
|000011c0| 4f 46 20 43 48 41 52 3b | 20 56 41 52 20 6f 75 74 |OF CHAR;| VAR out|
|000011d0| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 29 |: ARRAY |OF CHAR)|
|000011e0| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 53 68 6f |;..PROCE|DURE Sho|
|000011f0| 77 50 61 72 61 6d 4d 73 | 67 20 28 73 74 72 2c 20 |wParamMs|g (str, |
|00001200| 70 30 2c 20 70 31 2c 20 | 70 32 3a 20 41 52 52 41 |p0, p1, |p2: ARRA|
|00001210| 59 20 4f 46 20 43 48 41 | 52 29 3b 0d 09 50 52 4f |Y OF CHA|R);..PRO|
|00001220| 43 45 44 55 52 45 20 53 | 68 6f 77 4d 73 67 20 28 |CEDURE S|howMsg (|
|00001230| 73 74 72 3a 20 41 52 52 | 41 59 20 4f 46 20 43 48 |str: ARR|AY OF CH|
|00001240| 41 52 29 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |AR);..PR|OCEDURE |
|00001250| 53 68 6f 77 50 61 72 61 | 6d 53 74 61 74 75 73 20 |ShowPara|mStatus |
|00001260| 28 73 74 72 2c 20 70 30 | 2c 20 70 31 2c 20 70 32 |(str, p0|, p1, p2|
|00001270| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 29 |: ARRAY |OF CHAR)|
|00001280| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 53 68 6f |;..PROCE|DURE Sho|
|00001290| 77 53 74 61 74 75 73 20 | 28 73 74 72 3a 20 41 52 |wStatus |(str: AR|
|000012a0| 52 41 59 20 4f 46 20 43 | 48 41 52 29 3b 0d 09 50 |RAY OF C|HAR);..P|
|000012b0| 52 4f 43 45 44 55 52 45 | 20 46 6c 75 73 68 4d 61 |ROCEDURE| FlushMa|
|000012c0| 70 70 69 6e 67 73 3b 0d | 09 50 52 4f 43 45 44 55 |ppings;.|.PROCEDU|
|000012d0| 52 45 20 47 65 74 4f 4b | 20 28 73 74 72 2c 20 70 |RE GetOK| (str, p|
|000012e0| 30 2c 20 70 31 2c 20 70 | 32 3a 20 41 52 52 41 59 |0, p1, p|2: ARRAY|
|000012f0| 20 4f 46 20 43 48 41 52 | 3b 20 56 41 52 20 6f 6b | OF CHAR|; VAR ok|
|00001300| 3a 20 42 4f 4f 4c 45 41 | 4e 29 3b 0d 09 50 52 4f |: BOOLEA|N);..PRO|
|00001310| 43 45 44 55 52 45 20 47 | 65 74 49 6e 74 53 70 65 |CEDURE G|etIntSpe|
|00001320| 63 20 28 64 65 66 54 79 | 70 65 3a 20 46 69 6c 65 |c (defTy|pe: File|
|00001330| 73 2e 54 79 70 65 3b 20 | 56 41 52 20 6c 6f 63 3a |s.Type; |VAR loc:|
|00001340| 20 46 69 6c 65 73 2e 4c | 6f 63 61 74 6f 72 3b 20 | Files.L|ocator; |
|00001350| 56 41 52 20 6e 61 6d 65 | 3a 20 46 69 6c 65 73 2e |VAR name|: Files.|
|00001360| 4e 61 6d 65 29 3b 0d 09 | 50 52 4f 43 45 44 55 52 |Name);..|PROCEDUR|
|00001370| 45 20 47 65 74 45 78 74 | 53 70 65 63 20 28 64 65 |E GetExt|Spec (de|
|00001380| 66 4e 61 6d 65 3a 20 46 | 69 6c 65 73 2e 4e 61 6d |fName: F|iles.Nam|
|00001390| 65 3b 20 64 65 66 54 79 | 70 65 3a 20 46 69 6c 65 |e; defTy|pe: File|
|000013a0| 73 2e 54 79 70 65 3b 20 | 56 41 52 20 6c 6f 63 3a |s.Type; |VAR loc:|
|000013b0| 20 46 69 6c 65 73 2e 4c | 6f 63 61 74 6f 72 3b 0d | Files.L|ocator;.|
|000013c0| 09 09 09 09 09 09 09 09 | 09 09 09 09 56 41 52 20 |........|....VAR |
|000013d0| 6e 61 6d 65 3a 20 46 69 | 6c 65 73 2e 4e 61 6d 65 |name: Fi|les.Name|
|000013e0| 29 3b 0d 09 50 52 4f 43 | 45 44 55 52 45 20 47 65 |);..PROC|EDURE Ge|
|000013f0| 74 43 6f 6c 6f 72 20 28 | 69 6e 3a 20 4c 4f 4e 47 |tColor (|in: LONG|
|00001400| 49 4e 54 3b 20 56 41 52 | 20 6f 75 74 3a 20 4c 4f |INT; VAR| out: LO|
|00001410| 4e 47 49 4e 54 3b 20 56 | 41 52 20 73 65 74 3a 20 |NGINT; V|AR set: |
|00001420| 42 4f 4f 4c 45 41 4e 29 | 3b 0d 09 50 52 4f 43 45 |BOOLEAN)|;..PROCE|
|00001430| 44 55 52 45 20 43 61 6c | 6c 20 28 63 6d 64 2c 20 |DURE Cal|l (cmd, |
|00001440| 65 72 72 6f 72 4d 73 67 | 3a 20 41 52 52 41 59 20 |errorMsg|: ARRAY |
|00001450| 4f 46 20 43 48 41 52 3b | 20 56 41 52 20 72 65 73 |OF CHAR;| VAR res|
|00001460| 3a 20 4c 4f 4e 47 49 4e | 54 29 3b 0d 09 50 52 4f |: LONGIN|T);..PRO|
|00001470| 43 45 44 55 52 45 20 42 | 65 65 70 3b 0d 0d 45 4e |CEDURE B|eep;..EN|
|00001480| 44 20 44 69 61 6c 6f 67 | 2e 0d 0d 0d 4d 6f 64 75 |D Dialog|....Modu|
|00001490| 6c 65 20 44 69 61 6c 6f | 67 20 70 72 6f 76 69 64 |le Dialo|g provid|
|000014a0| 65 73 20 61 20 76 61 72 | 69 65 74 79 20 6f 66 20 |es a var|iety of |
|000014b0| 61 75 78 69 6c 69 61 72 | 79 20 73 65 72 76 69 63 |auxiliar|y servic|
|000014c0| 65 73 20 74 6f 20 73 69 | 6d 70 6c 69 66 79 20 75 |es to si|mplify u|
|000014d0| 73 65 72 20 69 6e 74 65 | 72 61 63 74 69 6f 6e 20 |ser inte|raction |
|000014e0| 6f 66 20 61 20 70 72 6f | 67 72 61 6d 2e 20 49 6e |of a pro|gram. In|
|000014f0| 20 70 61 72 74 69 63 75 | 6c 61 72 2c 20 74 68 65 | particu|lar, the|
|00001500| 20 6f 75 74 70 75 74 20 | 6f 66 20 6d 65 73 73 61 | output |of messa|
|00001510| 67 65 73 2c 20 65 2e 67 | 2e 20 65 72 72 6f 72 20 |ges, e.g|. error |
|00001520| 6d 65 73 73 61 67 65 73 | 2c 20 69 73 20 73 75 70 |messages|, is sup|
|00001530| 70 6f 72 74 65 64 2e 20 | 46 75 72 74 68 65 72 6d |ported. |Furtherm|
|00001540| 6f 72 65 2c 20 76 61 72 | 69 6f 75 73 20 62 61 73 |ore, var|ious bas|
|00001550| 65 20 74 79 70 65 73 20 | 61 72 65 20 70 72 6f 76 |e types |are prov|
|00001560| 69 64 65 64 3a 20 45 6e | 75 6d 65 72 61 74 69 6f |ided: En|umeratio|
|00001570| 6e 2c 20 43 6f 6d 62 6f | 2c 20 43 75 72 72 65 6e |n, Combo|, Curren|
|00001580| 63 79 2c 20 65 74 63 2e | 20 54 68 65 73 65 20 74 |cy, etc.| These t|
|00001590| 79 70 65 73 20 61 72 65 | 20 6b 6e 6f 77 6e 20 74 |ypes are| known t|
|000015a0| 6f 20 74 68 65 20 66 72 | 61 6d 65 77 6f 72 6b 20 |o the fr|amework |
|000015b0| 61 6e 64 20 63 61 6e 20 | 62 65 20 64 69 73 70 6c |and can |be displ|
|000015c0| 61 79 65 64 20 62 79 20 | 73 75 69 74 61 62 6c 65 |ayed by |suitable|
|000015d0| 20 63 6f 6e 74 72 6f 6c | 73 2c 20 69 2e 65 2e 20 | control|s, i.e. |
|000015e0| 76 69 65 77 73 20 77 68 | 69 63 68 20 64 69 73 70 |views wh|ich disp|
|000015f0| 6c 61 79 20 6e 6f 74 20 | 61 20 6e 6f 72 6d 61 6c |lay not |a normal|
|00001600| 20 6d 6f 64 65 6c 2c 20 | 62 75 74 20 69 6e 73 74 | model, |but inst|
|00001610| 65 61 64 20 61 20 76 61 | 72 69 61 62 6c 65 20 6f |ead a va|riable o|
|00001620| 66 20 6f 6e 65 20 6f 66 | 20 74 68 65 20 6d 65 6e |f one of| the men|
|00001630| 74 69 6f 6e 65 64 20 74 | 79 70 65 73 2e 20 53 6f |tioned t|ypes. So|
|00001640| 6d 65 20 6f 66 20 74 68 | 65 73 65 20 74 79 70 65 |me of th|ese type|
|00001650| 73 20 63 61 6e 20 62 65 | 20 65 78 74 65 6e 64 65 |s can be| extende|
|00001660| 64 2c 20 65 2e 67 2e 20 | 65 6e 75 6d 65 72 61 74 |d, e.g. |enumerat|
|00001670| 69 6f 6e 73 20 63 61 6e | 20 62 65 20 65 78 74 65 |ions can| be exte|
|00001680| 6e 64 65 64 20 74 6f 20 | 64 65 66 69 6e 65 20 61 |nded to |define a|
|00001690| 20 70 61 72 74 69 63 75 | 6c 61 72 20 63 6f 6e 63 | particu|lar conc|
|000016a0| 72 65 74 65 20 65 6e 75 | 6d 65 72 61 74 69 6f 6e |rete enu|meration|
|000016b0| 20 74 79 70 65 2c 20 77 | 68 69 63 68 20 74 68 65 | type, w|hich the|
|000016c0| 6e 20 63 61 6e 20 62 65 | 20 64 69 73 70 6c 61 79 |n can be| display|
|000016d0| 65 64 20 65 2e 67 2e 20 | 61 73 20 61 20 70 6f 70 |ed e.g. |as a pop|
|000016e0| 2d 75 70 20 6d 65 6e 75 | 20 6f 72 20 6f 74 68 65 |-up menu| or othe|
|000016f0| 72 20 73 75 69 74 61 62 | 6c 65 20 63 6f 6e 74 72 |r suitab|le contr|
|00001700| 6f 6c 2e 0d 0d 0d 43 4f | 4e 53 54 20 70 72 65 73 |ol....CO|NST pres|
|00001710| 73 65 64 0d 54 68 69 73 | 20 76 61 6c 75 65 20 6d |sed.This| value m|
|00001720| 61 79 20 62 65 20 70 61 | 73 73 65 64 20 74 6f 20 |ay be pa|ssed to |
|00001730| 74 68 65 20 6f 70 20 66 | 69 65 6c 64 20 6f 66 20 |the op f|ield of |
|00001740| 61 20 4e 6f 74 69 66 79 | 50 72 6f 63 2e 20 49 74 |a Notify|Proc. It|
|00001750| 20 6e 6f 74 69 66 69 65 | 73 20 61 62 6f 75 74 20 | notifie|s about |
|00001760| 61 20 6d 6f 75 73 65 2d | 64 6f 77 6e 20 65 76 65 |a mouse-|down eve|
|00001770| 6e 74 2c 20 69 2e 65 2e | 20 74 68 65 20 70 72 69 |nt, i.e.| the pri|
|00001780| 6d 61 72 79 20 6d 6f 75 | 73 65 20 6b 65 79 20 68 |mary mou|se key h|
|00001790| 61 73 20 6a 75 73 74 20 | 62 65 65 6e 20 70 72 65 |as just |been pre|
|000017a0| 73 73 65 64 2e 0d 0d 43 | 4f 4e 53 54 20 72 65 6c |ssed...C|ONST rel|
|000017b0| 65 61 73 65 64 0d 54 68 | 69 73 20 76 61 6c 75 65 |eased.Th|is value|
|000017c0| 20 6d 61 79 20 62 65 20 | 70 61 73 73 65 64 20 74 | may be |passed t|
|000017d0| 6f 20 74 68 65 20 6f 70 | 20 66 69 65 6c 64 20 6f |o the op| field o|
|000017e0| 66 20 61 20 4e 6f 74 69 | 66 79 50 72 6f 63 2e 20 |f a Noti|fyProc. |
|000017f0| 49 74 20 6e 6f 74 69 66 | 69 65 73 20 61 62 6f 75 |It notif|ies abou|
|00001800| 74 20 61 20 6d 6f 75 73 | 65 2d 75 70 20 65 76 65 |t a mous|e-up eve|
|00001810| 6e 74 2c 20 69 2e 65 2e | 20 74 68 65 20 70 72 69 |nt, i.e.| the pri|
|00001820| 6d 61 72 79 20 6d 6f 75 | 73 65 20 6b 65 79 20 68 |mary mou|se key h|
|00001830| 61 73 20 6a 75 73 74 20 | 62 65 65 6e 20 72 65 6c |as just |been rel|
|00001840| 65 61 73 65 64 2e 0d 0d | 43 4f 4e 53 54 20 63 68 |eased...|CONST ch|
|00001850| 61 6e 67 65 64 0d 54 68 | 69 73 20 76 61 6c 75 65 |anged.Th|is value|
|00001860| 20 6d 61 79 20 62 65 20 | 70 61 73 73 65 64 20 74 | may be |passed t|
|00001870| 6f 20 74 68 65 20 6f 70 | 20 66 69 65 6c 64 20 6f |o the op| field o|
|00001880| 66 20 61 20 4e 6f 74 69 | 66 79 50 72 6f 63 2e 20 |f a Noti|fyProc. |
|00001890| 49 74 20 6e 6f 74 69 66 | 69 65 73 20 61 62 6f 75 |It notif|ies abou|
|000018a0| 74 20 73 6f 6d 65 20 63 | 68 61 6e 67 65 20 6f 66 |t some c|hange of|
|000018b0| 20 61 6e 20 69 6e 74 65 | 72 61 63 74 6f 72 20 66 | an inte|ractor f|
|000018c0| 69 65 6c 64 27 73 20 76 | 61 6c 75 65 2e 20 46 6f |ield's v|alue. Fo|
|000018d0| 72 20 61 20 53 65 6c 65 | 63 74 69 6f 6e 20 6f 72 |r a Sele|ction or|
|000018e0| 20 61 20 4c 61 72 67 65 | 53 65 74 2c 20 74 68 65 | a Large|Set, the|
|000018f0| 20 6d 6f 72 65 20 73 70 | 65 63 69 66 69 63 20 63 | more sp|ecific c|
|00001900| 6f 6e 73 74 61 6e 74 73 | 20 69 6e 63 6c 75 64 65 |onstants| include|
|00001910| 64 2c 20 65 78 63 6c 75 | 64 65 64 2c 20 6f 72 20 |d, exclu|ded, or |
|00001920| 73 65 74 20 61 72 65 20 | 75 73 65 64 2e 0d 0d 43 |set are |used...C|
|00001930| 4f 4e 53 54 20 69 6e 63 | 6c 75 64 65 64 0d 54 68 |ONST inc|luded.Th|
|00001940| 69 73 20 76 61 6c 75 65 | 20 6d 61 79 20 62 65 20 |is value| may be |
|00001950| 70 61 73 73 65 64 20 74 | 6f 20 74 68 65 20 6f 70 |passed t|o the op|
|00001960| 20 66 69 65 6c 64 20 6f | 66 20 61 20 4e 6f 74 69 | field o|f a Noti|
|00001970| 66 79 50 72 6f 63 2e 20 | 49 74 20 6e 6f 74 69 66 |fyProc. |It notif|
|00001980| 69 65 73 20 61 62 6f 75 | 74 20 61 6e 20 69 6e 63 |ies abou|t an inc|
|00001990| 6c 75 73 69 6f 6e 20 6f | 66 20 74 68 65 20 72 61 |lusion o|f the ra|
|000019a0| 6e 67 65 20 5b 66 72 6f | 6d 2e 2e 74 6f 5d 20 69 |nge [fro|m..to] i|
|000019b0| 6e 20 61 20 53 65 6c 65 | 63 74 69 6f 6e 20 6f 72 |n a Sele|ction or|
|000019c0| 20 4c 61 72 67 65 53 65 | 74 2e 20 42 65 66 6f 72 | LargeSe|t. Befor|
|000019d0| 65 20 74 68 65 20 6f 70 | 65 72 61 74 69 6f 6e 2c |e the op|eration,|
|000019e0| 20 74 68 69 73 20 72 61 | 6e 67 65 20 77 61 73 20 | this ra|nge was |
|000019f0| 6e 6f 74 20 69 6e 63 6c | 75 64 65 64 20 69 6e 20 |not incl|uded in |
|00001a00| 74 68 65 20 73 65 74 2e | 0d 0d 43 4f 4e 53 54 20 |the set.|..CONST |
|00001a10| 65 78 63 6c 75 64 65 64 | 0d 54 68 69 73 20 76 61 |excluded|.This va|
|00001a20| 6c 75 65 20 6d 61 79 20 | 62 65 20 70 61 73 73 65 |lue may |be passe|
|00001a30| 64 20 74 6f 20 74 68 65 | 20 6f 70 20 66 69 65 6c |d to the| op fiel|
|00001a40| 64 20 6f 66 20 61 20 4e | 6f 74 69 66 79 50 72 6f |d of a N|otifyPro|
|00001a50| 63 2e 20 49 74 20 6e 6f | 74 69 66 69 65 73 20 61 |c. It no|tifies a|
|00001a60| 62 6f 75 74 20 61 6e 20 | 65 78 63 6c 75 73 69 6f |bout an |exclusio|
|00001a70| 6e 20 6f 66 20 74 68 65 | 20 72 61 6e 67 65 20 5b |n of the| range [|
|00001a80| 66 72 6f 6d 2e 2e 74 6f | 5d 20 69 6e 20 61 20 53 |from..to|] in a S|
|00001a90| 65 6c 65 63 74 69 6f 6e | 20 6f 72 20 4c 61 72 67 |election| or Larg|
|00001aa0| 65 53 65 74 2e 20 42 65 | 66 6f 72 65 20 74 68 65 |eSet. Be|fore the|
|00001ab0| 20 6f 70 65 72 61 74 69 | 6f 6e 2c 20 74 68 69 73 | operati|on, this|
|00001ac0| 20 72 61 6e 67 65 20 77 | 61 73 20 69 6e 63 6c 75 | range w|as inclu|
|00001ad0| 64 65 64 20 69 6e 20 74 | 68 65 20 73 65 74 2e 0d |ded in t|he set..|
|00001ae0| 0d 43 4f 4e 53 54 20 73 | 65 74 0d 54 68 69 73 20 |.CONST s|et.This |
|00001af0| 76 61 6c 75 65 20 6d 61 | 79 20 62 65 20 70 61 73 |value ma|y be pas|
|00001b00| 73 65 64 20 74 6f 20 74 | 68 65 20 6f 70 20 66 69 |sed to t|he op fi|
|00001b10| 65 6c 64 20 6f 66 20 61 | 20 4e 6f 74 69 66 79 50 |eld of a| NotifyP|
|00001b20| 72 6f 63 2e 20 49 74 20 | 6e 6f 74 69 66 69 65 73 |roc. It |notifies|
|00001b30| 20 61 62 6f 75 74 20 61 | 20 63 68 61 6e 67 65 20 | about a| change |
|00001b40| 69 6e 20 61 20 53 65 6c | 65 63 74 69 6f 6e 20 6f |in a Sel|ection o|
|00001b50| 72 20 4c 61 72 67 65 53 | 65 74 2c 20 72 65 73 75 |r LargeS|et, resu|
|00001b60| 6c 74 69 6e 67 20 69 6e | 20 61 20 73 65 74 20 7b |lting in| a set {|
|00001b70| 66 72 6f 6d 2e 2e 74 6f | 7d 2e 0d 0d 0d 54 59 50 |from..to|}....TYP|
|00001b80| 45 20 53 74 72 69 6e 67 | 0d 53 74 72 69 6e 67 20 |E String|.String |
|00001b90| 74 79 70 65 20 66 6f 72 | 20 76 61 72 69 6f 75 73 |type for| various|
|00001ba0| 20 6e 61 6d 65 73 20 74 | 6f 20 62 65 20 64 69 73 | names t|o be dis|
|00001bb0| 70 6c 61 79 65 64 20 66 | 6f 72 20 74 68 65 20 75 |played f|or the u|
|00001bc0| 73 65 72 2c 20 6f 72 20 | 74 6f 20 62 65 20 65 6e |ser, or |to be en|
|00001bd0| 74 65 72 65 64 20 62 79 | 20 74 68 65 20 75 73 65 |tered by| the use|
|00001be0| 72 2e 0d 0d 0d 54 59 50 | 45 20 49 6e 74 65 72 61 |r....TYP|E Intera|
|00001bf0| 63 74 6f 72 0d 49 6e 74 | 65 72 66 61 63 65 0d 54 |ctor.Int|erface.T|
|00001c00| 68 69 73 20 69 73 20 74 | 68 65 20 62 61 73 65 20 |his is t|he base |
|00001c10| 74 79 70 65 20 6f 66 20 | 69 6e 74 65 72 61 63 74 |type of |interact|
|00001c20| 6f 72 73 2c 20 69 2e 65 | 2e 20 6f 66 20 67 6c 6f |ors, i.e|. of glo|
|00001c30| 62 61 6c 20 72 65 63 6f | 72 64 20 76 61 72 69 61 |bal reco|rd varia|
|00001c40| 62 6c 65 73 20 77 68 69 | 63 68 20 63 61 6e 20 62 |bles whi|ch can b|
|00001c50| 65 20 72 65 70 72 65 73 | 65 6e 74 65 64 20 61 73 |e repres|ented as|
|00001c60| 20 64 69 61 6c 6f 67 20 | 62 6f 78 65 73 20 6f 72 | dialog |boxes or|
|00001c70| 20 70 72 6f 70 65 72 74 | 79 20 73 68 65 65 74 73 | propert|y sheets|
|00001c80| 2e 0d 0d 0d 54 59 50 45 | 20 46 69 65 6c 64 0d 49 |....TYPE| Field.I|
|00001c90| 6e 74 65 72 66 61 63 65 | 0d 42 61 73 65 20 74 79 |nterface|.Base ty|
|00001ca0| 70 65 20 6f 66 20 61 6c | 6c 20 6c 69 73 74 2d 73 |pe of al|l list-s|
|00001cb0| 74 72 75 63 74 75 72 65 | 64 20 74 79 70 65 73 20 |tructure|d types |
|00001cc0| 77 68 69 63 68 20 63 61 | 6e 20 62 65 20 64 69 73 |which ca|n be dis|
|00001cd0| 70 6c 61 79 65 64 20 61 | 6e 64 20 65 64 69 74 65 |played a|nd edite|
|00001ce0| 64 20 74 68 72 6f 75 67 | 68 20 73 70 65 63 69 66 |d throug|h specif|
|00001cf0| 69 63 20 63 6f 6e 74 72 | 6f 6c 73 20 28 6c 69 73 |ic contr|ols (lis|
|00001d00| 74 20 62 6f 78 65 73 2c | 20 73 65 6c 65 63 74 69 |t boxes,| selecti|
|00001d10| 6f 6e 20 62 6f 78 65 73 | 2c 20 63 6f 6d 62 6f 20 |on boxes|, combo |
|00001d20| 62 6f 78 65 73 29 20 69 | 6e 74 65 72 61 63 74 69 |boxes) i|nteracti|
|00001d30| 76 65 6c 79 2e 0d 0d 50 | 52 4f 43 45 44 55 52 45 |vely...P|ROCEDURE|
|00001d40| 20 28 56 41 52 20 66 3a | 20 46 69 65 6c 64 29 20 | (VAR f:| Field) |
|00001d50| 47 65 74 4e 61 6d 65 20 | 28 69 3a 20 4c 4f 4e 47 |GetName |(i: LONG|
|00001d60| 49 4e 54 3b 20 56 41 52 | 20 6e 61 6d 65 3a 20 53 |INT; VAR| name: S|
|00001d70| 74 72 69 6e 67 29 0d 49 | 6e 74 65 72 66 61 63 65 |tring).I|nterface|
|00001d80| 0d 47 69 76 65 6e 20 61 | 6e 20 69 6e 64 65 78 20 |.Given a|n index |
|00001d90| 69 2c 20 74 68 65 20 63 | 6f 72 72 65 73 70 6f 6e |i, the c|orrespon|
|00001da0| 64 69 6e 67 20 6e 61 6d | 65 20 69 73 20 72 65 74 |ding nam|e is ret|
|00001db0| 75 72 6e 65 64 2e 20 49 | 66 20 69 20 69 73 20 6f |urned. I|f i is o|
|00001dc0| 75 74 73 69 64 65 20 6f | 66 20 74 68 65 20 76 61 |utside o|f the va|
|00001dd0| 6c 69 64 20 69 6e 64 65 | 78 20 72 61 6e 67 65 2c |lid inde|x range,|
|00001de0| 20 74 68 65 20 65 6d 74 | 70 79 20 73 74 72 69 6e | the emt|py strin|
|00001df0| 67 20 22 22 20 69 73 20 | 72 65 74 75 72 6e 65 64 |g "" is |returned|
|00001e00| 2e 0d 0d 50 72 65 0d 69 | 20 3e 3d 20 30 09 32 30 |...Pre.i| >= 0.20|
|00001e10| 0d 0d 50 6f 73 74 0d 6e | 61 6d 65 20 23 20 22 22 |..Post.n|ame # ""|
|00001e20| 20 69 66 66 20 69 6e 64 | 65 78 20 69 20 69 73 20 | iff ind|ex i is |
|00001e30| 76 61 6c 69 64 0d 0d 0d | 0d 54 59 50 45 20 45 6e |valid...|.TYPE En|
|00001e40| 75 6d 65 72 61 74 69 6f | 6e 0d 49 6e 74 65 72 66 |umeratio|n.Interf|
|00001e50| 61 63 65 2c 20 45 78 74 | 65 6e 73 69 6f 6e 0d 42 |ace, Ext|ension.B|
|00001e60| 61 73 65 20 74 79 70 65 | 20 6f 66 20 61 6c 6c 20 |ase type| of all |
|00001e70| 65 6e 75 6d 65 72 61 74 | 69 6f 6e 20 74 79 70 65 |enumerat|ion type|
|00001e80| 73 2e 20 41 6e 20 65 6e | 75 6d 65 72 61 74 69 6f |s. An en|umeratio|
|00001e90| 6e 20 74 79 70 65 20 64 | 65 66 69 6e 65 73 20 61 |n type d|efines a|
|00001ea0| 20 73 75 62 73 65 74 20 | 6f 66 20 74 68 65 20 4c | subset |of the L|
|00001eb0| 4f 4e 47 49 4e 54 20 74 | 79 70 65 2c 20 61 6e 64 |ONGINT t|ype, and|
|00001ec0| 20 61 20 6e 61 6d 65 20 | 28 73 74 72 69 6e 67 29 | a name |(string)|
|00001ed0| 20 66 6f 72 20 65 61 63 | 68 20 65 6c 65 6d 65 6e | for eac|h elemen|
|00001ee0| 74 20 6f 66 20 74 68 69 | 73 20 73 75 62 73 65 74 |t of thi|s subset|
|00001ef0| 2e 20 41 6c 6c 20 76 61 | 6c 69 64 20 6e 61 6d 65 |. All va|lid name|
|00001f00| 73 20 63 61 6e 20 62 65 | 20 65 6e 75 6d 65 72 61 |s can be| enumera|
|00001f10| 74 65 64 20 62 79 20 69 | 6e 64 65 78 69 6e 67 20 |ted by i|ndexing |
|00001f20| 66 72 6f 6d 20 30 20 75 | 70 77 61 72 64 73 2c 20 |from 0 u|pwards, |
|00001f30| 61 6e 64 20 73 74 6f 70 | 70 69 6e 67 20 77 68 65 |and stop|ping whe|
|00001f40| 6e 20 74 68 65 20 65 6d | 70 74 79 20 73 74 72 69 |n the em|pty stri|
|00001f50| 6e 67 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 0d |ng is re|turned..|
|00001f60| 0d 76 61 6c 3a 20 4c 4f | 4e 47 49 4e 54 0d 43 75 |.val: LO|NGINT.Cu|
|00001f70| 72 72 65 6e 74 20 76 61 | 6c 75 65 20 6f 66 20 74 |rrent va|lue of t|
|00001f80| 68 65 20 65 6e 75 6d 65 | 72 61 74 69 6f 6e 2e 0d |he enume|ration..|
|00001f90| 0d 0d 54 59 50 45 20 43 | 6f 6d 62 6f 0d 49 6e 74 |..TYPE C|ombo.Int|
|00001fa0| 65 72 66 61 63 65 2c 20 | 45 78 74 65 6e 73 69 6f |erface, |Extensio|
|00001fb0| 6e 0d 42 61 73 65 20 74 | 79 70 65 20 6f 66 20 61 |n.Base t|ype of a|
|00001fc0| 6c 6c 20 63 6f 6d 62 6f | 20 74 79 70 65 73 2e 20 |ll combo| types. |
|00001fd0| 41 20 63 6f 6d 62 6f 20 | 69 73 20 73 69 6d 69 6c |A combo |is simil|
|00001fe0| 61 72 20 74 6f 20 61 6e | 20 65 6e 75 6d 65 72 61 |ar to an| enumera|
|00001ff0| 74 69 6f 6e 2c 20 65 78 | 63 65 70 74 20 74 68 61 |tion, ex|cept tha|
|00002000| 74 20 69 74 20 61 6c 73 | 6f 20 61 63 63 65 70 74 |t it als|o accept|
|00002010| 73 20 6f 74 68 65 72 20 | 76 61 6c 75 65 73 20 74 |s other |values t|
|00002020| 68 61 6e 20 74 68 65 20 | 70 72 65 64 65 66 69 6e |han the |predefin|
|00002030| 65 64 20 6f 6e 65 73 20 | 6f 66 20 61 6e 20 65 6e |ed ones |of an en|
|00002040| 75 6d 65 72 61 74 69 6f | 6e 2e 20 54 79 70 69 63 |umeratio|n. Typic|
|00002050| 61 6c 6c 79 2c 20 61 20 | 63 6f 6d 62 6f 20 69 73 |ally, a |combo is|
|00002060| 20 72 65 70 72 65 73 65 | 6e 74 65 64 20 6f 6e 20 | represe|nted on |
|00002070| 74 68 65 20 73 63 72 65 | 65 6e 20 61 73 20 61 20 |the scre|en as a |
|00002080| 63 6f 6d 62 6f 20 62 6f | 78 20 63 6f 6e 74 72 6f |combo bo|x contro|
|00002090| 6c 2e 20 53 75 63 68 20 | 61 20 63 6f 6e 74 72 6f |l. Such |a contro|
|000020a0| 6c 20 69 73 20 61 20 6d | 69 78 74 75 72 65 20 6f |l is a m|ixture o|
|000020b0| 66 20 61 20 6c 69 73 74 | 20 62 6f 78 20 6f 72 20 |f a list| box or |
|000020c0| 70 6f 70 75 70 20 62 6f | 78 20 28 77 68 65 72 65 |popup bo|x (where|
|000020d0| 20 6f 6e 65 20 6f 66 20 | 74 68 65 20 65 6e 75 6d | one of |the enum|
|000020e0| 65 72 61 74 65 64 20 76 | 61 6c 75 65 73 20 63 61 |erated v|alues ca|
|000020f0| 6e 20 62 65 20 63 68 6f | 73 65 6e 29 20 61 6e 64 |n be cho|sen) and|
|00002100| 20 61 20 74 65 78 74 20 | 66 69 65 6c 64 20 28 69 | a text |field (i|
|00002110| 6e 20 77 68 69 63 68 20 | 6e 6f 6e 2d 73 74 61 6e |n which |non-stan|
|00002120| 64 61 72 64 20 76 61 6c | 75 65 73 20 63 61 6e 20 |dard val|ues can |
|00002130| 62 65 20 74 79 70 65 64 | 20 69 6e 29 2e 0d 0d 6e |be typed| in)...n|
|00002140| 61 6d 65 3a 20 53 74 72 | 69 6e 67 0d 43 75 72 72 |ame: Str|ing.Curr|
|00002150| 65 6e 74 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |ent valu|e of the|
|00002160| 20 63 6f 6d 62 6f 2e 0d | 0d 0d 54 59 50 45 20 53 | combo..|..TYPE S|
|00002170| 65 6c 65 63 74 69 6f 6e | 0d 49 6e 74 65 72 66 61 |election|.Interfa|
|00002180| 63 65 2c 20 45 78 74 65 | 6e 73 69 6f 6e 0d 41 20 |ce, Exte|nsion.A |
|00002190| 73 65 6c 65 63 74 69 6f | 6e 20 69 73 20 73 69 6d |selectio|n is sim|
|000021a0| 69 6c 61 72 20 74 6f 20 | 61 6e 20 65 6e 75 6d 65 |ilar to |an enume|
|000021b0| 72 61 74 69 6f 6e 2c 20 | 65 78 63 65 70 74 20 74 |ration, |except t|
|000021c0| 68 61 74 20 6e 6f 74 20 | 65 78 61 63 74 6c 79 20 |hat not |exactly |
|000021d0| 6f 6e 65 20 76 61 6c 75 | 65 20 63 61 6e 20 62 65 |one valu|e can be|
|000021e0| 20 72 65 70 72 65 73 65 | 6e 74 65 64 2c 20 62 75 | represe|nted, bu|
|000021f0| 74 20 62 65 74 77 65 65 | 6e 20 30 20 61 6e 64 20 |t betwee|n 0 and |
|00002200| 33 32 20 76 61 6c 75 65 | 73 20 69 6e 73 74 65 61 |32 value|s instea|
|00002210| 64 2c 20 69 2e 65 2e 20 | 61 20 73 65 6c 65 63 74 |d, i.e. |a select|
|00002220| 69 6f 6e 20 69 73 20 61 | 20 73 65 74 20 6f 66 20 |ion is a| set of |
|00002230| 65 6e 75 6d 65 72 61 74 | 69 6f 6e 73 2e 0d 0d 76 |enumerat|ions...v|
|00002240| 61 6c 3a 20 53 45 54 0d | 43 75 72 72 65 6e 74 20 |al: SET.|Current |
|00002250| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 73 65 6c |value of| the sel|
|00002260| 65 63 74 69 6f 6e 2e 0d | 0d 6d 61 73 6b 3a 20 53 |ection..|.mask: S|
|00002270| 45 54 0d 43 75 72 72 65 | 6e 74 6c 79 20 76 61 6c |ET.Curre|ntly val|
|00002280| 69 64 20 65 6c 65 6d 65 | 6e 74 73 20 6f 66 20 74 |id eleme|nts of t|
|00002290| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 2e 0d 0d 0d |he selec|tion....|
|000022a0| 54 59 50 45 20 4c 61 72 | 67 65 53 65 74 0d 49 6e |TYPE Lar|geSet.In|
|000022b0| 74 65 72 66 61 63 65 2c | 20 45 78 74 65 6e 73 69 |terface,| Extensi|
|000022c0| 6f 6e 0d 42 61 73 65 20 | 74 79 70 65 20 6f 66 20 |on.Base |type of |
|000022d0| 6c 61 72 67 65 20 73 65 | 74 73 2c 20 69 2e 65 2e |large se|ts, i.e.|
|000022e0| 20 73 65 74 73 20 77 69 | 74 68 20 70 6f 73 73 69 | sets wi|th possi|
|000022f0| 62 6c 79 20 6d 6f 72 65 | 20 74 68 61 6e 20 33 32 |bly more| than 32|
|00002300| 20 65 6c 65 6d 65 6e 74 | 73 2e 0d 0d 50 52 4f 43 | element|s...PROC|
|00002310| 45 44 55 52 45 20 28 56 | 41 52 20 73 3a 20 4c 61 |EDURE (V|AR s: La|
|00002320| 72 67 65 53 65 74 29 20 | 49 6e 63 6c 20 28 66 72 |rgeSet) |Incl (fr|
|00002330| 6f 6d 2c 20 74 6f 3a 20 | 4c 4f 4e 47 49 4e 54 29 |om, to: |LONGINT)|
|00002340| 0d 49 6e 74 65 72 66 61 | 63 65 0d 49 6e 63 6c 75 |.Interfa|ce.Inclu|
|00002350| 64 65 20 74 68 65 20 72 | 61 6e 67 65 20 5b 66 72 |de the r|ange [fr|
|00002360| 6f 6d 2e 2e 74 6f 5d 20 | 69 6e 74 6f 20 74 68 65 |om..to] |into the|
|00002370| 20 73 65 74 2e 0d 0d 50 | 52 4f 43 45 44 55 52 45 | set...P|ROCEDURE|
|00002380| 20 28 56 41 52 20 73 3a | 20 4c 61 72 67 65 53 65 | (VAR s:| LargeSe|
|00002390| 74 29 20 45 78 63 6c 20 | 28 66 72 6f 6d 2c 20 74 |t) Excl |(from, t|
|000023a0| 6f 3a 20 4c 4f 4e 47 49 | 4e 54 29 0d 49 6e 74 65 |o: LONGI|NT).Inte|
|000023b0| 72 66 61 63 65 0d 45 78 | 63 6c 75 64 65 20 74 68 |rface.Ex|clude th|
|000023c0| 65 20 72 61 6e 67 65 20 | 5b 66 72 6f 6d 2e 2e 74 |e range |[from..t|
|000023d0| 6f 5d 20 66 72 6f 6d 20 | 74 68 65 20 73 65 74 2e |o] from |the set.|
|000023e0| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 28 56 41 52 |..PROCED|URE (VAR|
|000023f0| 20 73 3a 20 4c 61 72 67 | 65 53 65 74 29 20 49 6e | s: Larg|eSet) In|
|00002400| 20 28 69 3a 20 4c 4f 4e | 47 49 4e 54 29 3a 20 42 | (i: LON|GINT): B|
|00002410| 4f 4f 4c 45 41 4e 0d 49 | 6e 74 65 72 66 61 63 65 |OOLEAN.I|nterface|
|00002420| 0d 44 65 74 65 72 6d 69 | 6e 65 20 77 68 65 74 68 |.Determi|ne wheth|
|00002430| 65 72 20 65 6c 65 6d 65 | 6e 74 20 69 20 69 73 20 |er eleme|nt i is |
|00002440| 69 6e 20 74 68 65 20 73 | 65 74 2e 0d 0d 0d 54 59 |in the s|et....TY|
|00002450| 50 45 20 41 72 72 61 79 | 0d 49 6e 74 65 72 66 61 |PE Array|.Interfa|
|00002460| 63 65 0d 42 61 73 65 20 | 74 79 70 65 20 6f 66 20 |ce.Base |type of |
|00002470| 61 6c 6c 20 61 72 72 61 | 79 20 66 69 65 6c 64 73 |all arra|y fields|
|00002480| 2e 0d 0d 6c 65 6e 3a 20 | 4c 4f 4e 47 49 4e 54 09 |...len: |LONGINT.|
|00002490| 6c 65 6e 20 3e 3d 20 30 | 0d 49 6e 64 69 63 61 74 |len >= 0|.Indicat|
|000024a0| 65 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |es the n|umber of|
|000024b0| 20 61 72 72 61 79 20 65 | 6c 65 6d 65 6e 74 73 20 | array e|lements |
|000024c0| 63 75 72 72 65 6e 74 6c | 79 20 76 61 6c 69 64 2c |currentl|y valid,|
|000024d0| 20 69 2e 65 2e 20 65 6c | 65 6d 65 6e 74 73 20 5b | i.e. el|ements [|
|000024e0| 30 2e 2e 6c 65 6e 29 2e | 0d 0d 0d 54 59 50 45 20 |0..len).|...TYPE |
|000024f0| 43 6f 6c 6f 72 0d 54 79 | 70 65 20 66 6f 72 20 63 |Color.Ty|pe for c|
|00002500| 6f 6c 6f 72 73 2e 0d 0d | 76 61 6c 3a 20 4c 4f 4e |olors...|val: LON|
|00002510| 47 49 4e 54 0d 43 75 72 | 72 65 6e 74 20 63 6f 6c |GINT.Cur|rent col|
|00002520| 6f 72 20 76 61 6c 75 65 | 20 28 69 6e 20 74 68 65 |or value| (in the|
|00002530| 20 73 61 6d 65 20 66 6f | 72 6d 61 74 20 61 73 20 | same fo|rmat as |
|00002540| 50 6f 72 74 73 2e 43 6f | 6c 6f 72 29 2e 0d 0d 0d |Ports.Co|lor)....|
|00002550| 54 59 50 45 20 43 75 72 | 72 65 6e 63 79 0d 54 79 |TYPE Cur|rency.Ty|
|00002560| 70 65 20 66 6f 72 20 63 | 75 72 72 65 6e 63 69 65 |pe for c|urrencie|
|00002570| 73 2e 0d 0d 69 6e 74 3a | 20 4c 4f 4e 47 49 4e 54 |s...int:| LONGINT|
|00002580| 0d 54 68 65 20 69 6e 74 | 65 67 65 72 20 76 61 6c |.The int|eger val|
|00002590| 75 65 20 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |ue of th|e curren|
|000025a0| 63 79 2e 0d 0d 66 72 61 | 63 3a 20 4c 4f 4e 47 49 |cy...fra|c: LONGI|
|000025b0| 4e 54 09 30 20 3c 3d 20 | 66 72 61 63 20 3c 20 31 |NT.0 <= |frac < 1|
|000025c0| 30 30 0d 54 68 65 20 66 | 72 61 63 74 69 6f 6e 20 |00.The f|raction |
|000025d0| 76 61 6c 75 65 2c 20 69 | 6e 20 70 65 72 63 65 6e |value, i|n percen|
|000025e0| 74 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 63 |t of the| currenc|
|000025f0| 79 2e 0d 0d 0d 54 59 50 | 45 20 44 61 74 65 0d 44 |y....TYP|E Date.D|
|00002600| 61 74 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ate info|rmation |
|00002610| 28 61 6c 69 61 73 20 6f | 66 20 44 61 74 65 73 2e |(alias o|f Dates.|
|00002620| 54 69 6d 65 29 2e 0d 0d | 0d 54 59 50 45 20 54 69 |Time)...|.TYPE Ti|
|00002630| 6d 65 0d 54 69 6d 65 20 | 69 6e 66 6f 72 6d 61 74 |me.Time |informat|
|00002640| 69 6f 6e 20 28 61 6c 69 | 61 73 20 6f 66 20 44 61 |ion (ali|as of Da|
|00002650| 74 65 73 2e 54 69 6d 65 | 29 2e 0d 0d 0d 54 59 50 |tes.Time|)....TYP|
|00002660| 45 20 53 69 7a 65 0d 54 | 79 70 65 20 66 6f 72 20 |E Size.T|ype for |
|00002670| 66 6f 6e 74 20 73 69 7a | 65 73 20 67 69 76 65 6e |font siz|es given|
|00002680| 20 69 6e 20 70 6f 69 6e | 74 73 20 28 46 6f 6e 74 | in poin|ts (Font|
|00002690| 73 2e 70 6f 69 6e 74 29 | 2e 0d 0d 76 61 6c 3a 20 |s.point)|...val: |
|000026a0| 4c 4f 4e 47 49 4e 54 0d | 43 75 72 72 65 6e 74 20 |LONGINT.|Current |
|000026b0| 73 69 7a 65 20 76 61 6c | 75 65 20 28 69 6e 20 75 |size val|ue (in u|
|000026c0| 6e 69 76 65 72 73 61 6c | 20 75 6e 69 74 73 2c 20 |niversal| units, |
|000026d0| 2d 3e 20 46 6f 6e 74 73 | 29 2e 0d 0d 0d 54 59 50 |-> Fonts|)....TYP|
|000026e0| 45 20 53 74 79 6c 65 0d | 45 78 74 65 6e 73 69 6f |E Style.|Extensio|
|000026f0| 6e 0d 53 65 6c 65 63 74 | 69 6f 6e 20 74 79 70 65 |n.Select|ion type|
|00002700| 20 66 6f 72 20 66 6f 6e | 74 20 73 74 79 6c 65 73 | for fon|t styles|
|00002710| 2e 20 56 61 6c 69 64 20 | 65 6c 65 6d 65 6e 74 73 |. Valid |elements|
|00002720| 20 61 72 65 20 7b 46 6f | 6e 74 73 2e 69 74 61 6c | are {Fo|nts.ital|
|00002730| 69 63 2e 2e 46 6f 6e 74 | 73 2e 73 74 72 69 6b 65 |ic..Font|s.strike|
|00002740| 6f 75 74 7d 2e 0d 0d 0d | 54 59 50 45 20 57 65 69 |out}....|TYPE Wei|
|00002750| 67 68 74 0d 54 79 70 65 | 20 66 6f 72 20 66 6f 6e |ght.Type| for fon|
|00002760| 74 20 77 65 69 67 68 74 | 73 2e 20 56 61 6c 75 65 |t weight|s. Value|
|00002770| 73 20 72 61 6e 67 65 20 | 66 72 6f 6d 20 31 20 74 |s range |from 1 t|
|00002780| 6f 20 31 30 30 30 2e 0d | 0d 76 61 6c 3a 20 49 4e |o 1000..|.val: IN|
|00002790| 54 45 47 45 52 09 5b 31 | 2e 2e 31 30 30 30 5d 0d |TEGER.[1|..1000].|
|000027a0| 43 75 72 72 65 6e 74 20 | 77 65 69 67 68 74 20 76 |Current |weight v|
|000027b0| 61 6c 75 65 2e 0d 0d 0d | 54 59 50 45 20 4c 65 6e |alue....|TYPE Len|
|000027c0| 67 74 68 0d 54 79 70 65 | 20 66 6f 72 20 75 6e 73 |gth.Type| for uns|
|000027d0| 69 67 6e 65 64 20 64 6f | 63 75 6d 65 6e 74 20 75 |igned do|cument u|
|000027e0| 6e 69 74 73 2e 0d 0d 76 | 61 6c 3a 20 4c 4f 4e 47 |nits...v|al: LONG|
|000027f0| 49 4e 54 09 5b 56 69 65 | 77 73 2e 75 6e 64 65 66 |INT.[Vie|ws.undef|
|00002800| 69 6e 65 64 2e 2e 4d 41 | 58 28 4c 4f 4e 47 49 4e |ined..MA|X(LONGIN|
|00002810| 54 29 5d 0d 43 75 72 72 | 65 6e 74 20 6c 65 6e 67 |T)].Curr|ent leng|
|00002820| 74 68 20 76 61 6c 75 65 | 20 28 69 6e 20 75 6e 69 |th value| (in uni|
|00002830| 76 65 72 73 61 6c 20 75 | 6e 69 74 73 2c 20 2d 3e |versal u|nits, ->|
|00002840| 20 46 6f 6e 74 73 29 2e | 0d 0d 0d 54 59 50 45 20 | Fonts).|...TYPE |
|00002850| 55 6e 69 74 73 0d 54 79 | 70 65 20 66 6f 72 20 73 |Units.Ty|pe for s|
|00002860| 69 67 6e 65 64 20 64 6f | 63 75 6d 65 6e 74 20 75 |igned do|cument u|
|00002870| 6e 69 74 73 2e 0d 0d 76 | 61 6c 3a 20 4c 4f 4e 47 |nits...v|al: LONG|
|00002880| 49 4e 54 09 5b 2d 4d 41 | 58 28 4c 4f 4e 47 49 4e |INT.[-MA|X(LONGIN|
|00002890| 54 29 2e 2e 2b 4d 41 58 | 28 4c 4f 4e 47 49 4e 54 |T)..+MAX|(LONGINT|
|000028a0| 29 5d 0d 43 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |)].Curre|nt value|
|000028b0| 20 28 69 6e 20 75 6e 69 | 76 65 72 73 61 6c 20 75 | (in uni|versal u|
|000028c0| 6e 69 74 73 2c 20 2d 3e | 20 46 6f 6e 74 73 29 2e |nits, ->| Fonts).|
|000028d0| 0d 0d 0d 54 59 50 45 20 | 50 61 72 0d 56 61 6c 75 |...TYPE |Par.Valu|
|000028e0| 65 73 20 6f 66 20 74 68 | 69 73 20 70 61 72 61 6d |es of th|is param|
|000028f0| 65 74 65 72 20 74 79 70 | 65 20 61 72 65 20 75 73 |eter typ|e are us|
|00002900| 65 64 20 74 6f 20 73 65 | 74 20 75 70 20 74 68 65 |ed to se|t up the|
|00002910| 20 6e 61 6d 65 73 20 6f | 66 20 6d 65 6e 75 20 69 | names o|f menu i|
|00002920| 74 65 6d 73 2c 20 61 6e | 64 20 74 6f 20 64 69 73 |tems, an|d to dis|
|00002930| 61 62 6c 65 20 6f 72 20 | 63 68 65 63 6b 20 6d 65 |able or |check me|
|00002940| 6e 75 20 69 74 65 6d 73 | 2e 20 41 20 70 72 6f 63 |nu items|. A proc|
|00002950| 65 64 75 72 65 20 6f 66 | 20 74 79 70 65 20 47 75 |edure of| type Gu|
|00002960| 61 72 64 50 72 6f 63 20 | 68 61 73 20 61 20 76 61 |ardProc |has a va|
|00002970| 72 69 61 62 6c 65 20 70 | 61 72 61 6d 65 74 65 72 |riable p|arameter|
|00002980| 20 6f 66 20 74 79 70 65 | 20 50 61 72 2e 0d 0d 64 | of type| Par...d|
|00002990| 69 73 61 62 6c 65 64 3a | 20 42 4f 4f 4c 45 41 4e |isabled:| BOOLEAN|
|000029a0| 0d 49 6e 69 74 69 61 6c | 6c 79 20 73 65 74 20 74 |.Initial|ly set t|
|000029b0| 6f 20 46 41 4c 53 45 2c | 20 74 68 69 73 20 66 69 |o FALSE,| this fi|
|000029c0| 65 6c 64 20 63 61 6e 20 | 62 65 20 73 65 74 20 74 |eld can |be set t|
|000029d0| 6f 20 54 52 55 45 20 62 | 79 20 67 75 61 72 64 20 |o TRUE b|y guard |
|000029e0| 63 6f 6d 6d 61 6e 64 73 | 2c 20 74 6f 20 64 69 73 |commands|, to dis|
|000029f0| 61 62 6c 65 20 61 20 6d | 65 6e 75 20 69 74 65 6d |able a m|enu item|
|00002a00| 20 6f 72 20 61 20 63 6f | 6e 74 72 6f 6c 2e 0d 0d | or a co|ntrol...|
|00002a10| 63 68 65 63 6b 65 64 3a | 20 42 4f 4f 4c 45 41 4e |checked:| BOOLEAN|
|00002a20| 0d 49 6e 69 74 69 61 6c | 6c 79 20 73 65 74 20 74 |.Initial|ly set t|
|00002a30| 6f 20 46 41 4c 53 45 2c | 20 74 68 69 73 20 66 69 |o FALSE,| this fi|
|00002a40| 65 6c 64 20 63 61 6e 20 | 62 65 20 73 65 74 20 74 |eld can |be set t|
|00002a50| 6f 20 54 52 55 45 20 74 | 6f 20 73 68 6f 77 20 61 |o TRUE t|o show a|
|00002a60| 20 63 68 65 63 6b 20 6d | 61 72 6b 20 66 6f 72 20 | check m|ark for |
|00002a70| 61 20 6d 65 6e 75 20 69 | 74 65 6d 2e 0d 0d 75 6e |a menu i|tem...un|
|00002a80| 64 65 66 3a 20 42 4f 4f | 4c 45 41 4e 0d 49 6e 69 |def: BOO|LEAN.Ini|
|00002a90| 74 69 61 6c 6c 79 20 73 | 65 74 20 74 6f 20 46 41 |tially s|et to FA|
|00002aa0| 4c 53 45 2c 20 74 68 69 | 73 20 66 69 65 6c 64 20 |LSE, thi|s field |
|00002ab0| 63 61 6e 20 62 65 20 73 | 65 74 20 74 6f 20 54 52 |can be s|et to TR|
|00002ac0| 55 45 20 74 6f 20 73 65 | 74 20 74 68 65 20 75 6e |UE to se|t the un|
|00002ad0| 64 65 66 20 73 74 61 74 | 65 20 6f 66 20 61 20 63 |def stat|e of a c|
|00002ae0| 6f 6e 74 72 6f 6c 2e 0d | 0d 72 65 61 64 4f 6e 6c |ontrol..|.readOnl|
|00002af0| 79 3a 20 42 4f 4f 4c 45 | 41 4e 0d 49 6e 69 74 69 |y: BOOLE|AN.Initi|
|00002b00| 61 6c 6c 79 20 73 65 74 | 20 74 6f 20 46 41 4c 53 |ally set| to FALS|
|00002b10| 45 2c 20 74 68 69 73 20 | 66 69 65 6c 64 20 63 61 |E, this |field ca|
|00002b20| 6e 20 62 65 20 73 65 74 | 20 74 6f 20 54 52 55 45 |n be set| to TRUE|
|00002b30| 20 74 6f 20 73 65 74 20 | 74 68 65 20 72 65 61 64 | to set |the read|
|00002b40| 4f 6e 6c 79 20 73 74 61 | 74 65 20 6f 66 20 61 20 |Only sta|te of a |
|00002b50| 63 6f 6e 74 72 6f 6c 2e | 0d 0d 73 74 72 69 6e 67 |control.|..string|
|00002b60| 3a 20 53 74 72 69 6e 67 | 0d 46 6f 72 20 6d 65 6e |: String|.For men|
|00002b70| 75 20 69 74 65 6d 73 20 | 6f 72 20 63 6f 6e 74 72 |u items |or contr|
|00002b80| 6f 6c 73 20 77 68 69 63 | 68 20 73 68 6f 77 20 64 |ols whic|h show d|
|00002b90| 69 66 66 65 72 65 6e 74 | 20 73 74 72 69 6e 67 73 |ifferent| strings|
|00002ba0| 20 64 65 70 65 6e 64 69 | 6e 67 20 6f 6e 20 74 68 | dependi|ng on th|
|00002bb0| 65 20 63 75 72 72 65 6e | 74 20 63 6f 6e 74 65 78 |e curren|t contex|
|00002bc0| 74 2c 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |t, the c|urrent s|
|00002bd0| 74 72 69 6e 67 20 63 61 | 6e 20 62 65 20 64 65 70 |tring ca|n be dep|
|00002be0| 6f 73 69 74 65 64 20 68 | 65 72 65 2e 0d 0d 0d 54 |osited h|ere....T|
|00002bf0| 59 50 45 20 47 75 61 72 | 64 50 72 6f 63 20 3d 20 |YPE Guar|dProc = |
|00002c00| 50 52 4f 43 45 44 55 52 | 45 20 28 56 41 52 20 70 |PROCEDUR|E (VAR p|
|00002c10| 61 72 3a 20 50 61 72 29 | 0d 4d 65 6e 75 20 67 75 |ar: Par)|.Menu gu|
|00002c20| 61 72 64 20 6f 72 20 63 | 6f 6e 74 72 6f 6c 20 67 |ard or c|ontrol g|
|00002c30| 75 61 72 64 20 63 6f 6d | 6d 61 6e 64 73 20 6d 75 |uard com|mands mu|
|00002c40| 73 74 20 68 61 76 65 20 | 74 68 69 73 20 73 69 67 |st have |this sig|
|00002c50| 6e 61 74 75 72 65 2e 20 | 54 68 65 79 20 63 61 6e |nature. |They can|
|00002c60| 20 73 65 74 20 74 68 65 | 20 66 69 65 6c 64 73 20 | set the| fields |
|00002c70| 6f 66 20 74 68 65 20 70 | 61 72 20 70 61 72 61 6d |of the p|ar param|
|00002c80| 65 74 65 72 20 74 6f 20 | 73 75 69 74 61 62 6c 65 |eter to |suitable|
|00002c90| 20 76 61 6c 75 65 73 2e | 20 47 75 61 72 64 20 63 | values.| Guard c|
|00002ca0| 6f 6d 6d 61 6e 64 73 20 | 61 72 65 20 63 61 6c 6c |ommands |are call|
|00002cb0| 65 64 20 74 6f 20 64 65 | 74 65 72 6d 69 6e 65 20 |ed to de|termine |
|00002cc0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 73 74 61 74 |the curr|ent stat|
|00002cd0| 65 20 28 69 6e 20 70 61 | 72 74 69 63 75 6c 61 72 |e (in pa|rticular|
|00002ce0| 20 74 6f 20 66 69 6e 64 | 20 6f 75 74 20 77 68 65 | to find| out whe|
|00002cf0| 74 68 65 72 20 74 68 65 | 20 69 74 65 6d 20 69 73 |ther the| item is|
|00002d00| 20 63 75 72 72 65 6e 74 | 6c 79 20 65 6e 61 62 6c | current|ly enabl|
|00002d10| 65 64 29 20 6f 66 20 61 | 20 6d 65 6e 75 20 69 74 |ed) of a| menu it|
|00002d20| 65 6d 20 6f 72 20 61 20 | 63 6f 6e 74 72 6f 6c 2e |em or a |control.|
|00002d30| 0d 46 6f 72 20 6d 65 6e | 75 20 69 74 65 6d 73 2c |.For men|u items,|
|00002d40| 20 74 68 65 20 67 75 61 | 72 64 20 63 6f 6d 6d 61 | the gua|rd comma|
|00002d50| 6e 64 73 20 61 72 65 20 | 73 70 65 63 69 66 69 65 |nds are |specifie|
|00002d60| 64 20 69 6e 20 74 68 65 | 20 4d 65 6e 75 20 74 65 |d in the| Menu te|
|00002d70| 78 74 2e 20 4d 65 6e 75 | 20 67 75 61 72 64 20 63 |xt. Menu| guard c|
|00002d80| 6f 6d 6d 61 6e 64 73 20 | 61 72 65 20 63 61 6c 6c |ommands |are call|
|00002d90| 65 64 20 61 66 74 65 72 | 20 74 68 65 20 75 73 65 |ed after| the use|
|00002da0| 72 20 63 6c 69 63 6b 73 | 20 69 6e 20 74 68 65 20 |r clicks| in the |
|00002db0| 6d 65 6e 75 20 62 61 72 | 2c 20 61 6e 64 20 62 65 |menu bar|, and be|
|00002dc0| 66 6f 72 65 20 74 68 65 | 20 6d 65 6e 75 20 61 70 |fore the| menu ap|
|00002dd0| 70 65 61 72 73 2e 0d 46 | 6f 72 20 63 6f 6e 74 72 |pears..F|or contr|
|00002de0| 6f 6c 73 2c 20 74 68 65 | 20 67 75 61 72 64 20 63 |ols, the| guard c|
|00002df0| 6f 6d 6d 61 6e 64 73 20 | 61 72 65 20 73 70 65 63 |ommands |are spec|
|00002e00| 69 66 69 65 64 20 69 6e | 20 74 68 65 20 69 6e 73 |ified in| the ins|
|00002e10| 70 65 63 74 6f 72 20 64 | 69 61 6c 6f 67 20 77 68 |pector d|ialog wh|
|00002e20| 69 63 68 20 61 6c 6c 6f | 77 73 20 74 6f 20 73 65 |ich allo|ws to se|
|00002e30| 74 20 74 68 65 20 76 61 | 72 69 6f 75 73 20 63 6f |t the va|rious co|
|00002e40| 6e 74 72 6f 6c 20 70 72 | 6f 70 65 72 74 69 65 73 |ntrol pr|operties|
|00002e50| 2e 20 43 6f 6e 74 72 6f | 6c 20 67 75 61 72 64 20 |. Contro|l guard |
|00002e60| 63 6f 6d 6d 61 6e 64 73 | 20 61 72 65 20 63 61 6c |commands| are cal|
|00002e70| 6c 65 64 20 61 66 74 65 | 72 20 74 68 65 20 75 73 |led afte|r the us|
|00002e80| 65 72 20 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |er inter|actively|
|00002e90| 20 63 68 61 6e 67 65 64 | 20 74 68 65 20 73 74 61 | changed| the sta|
|00002ea0| 74 65 20 6f 66 20 61 20 | 63 6f 6e 74 72 6f 6c 2c |te of a |control,|
|00002eb0| 20 6f 72 20 61 66 74 65 | 72 20 61 20 70 72 6f 67 | or afte|r a prog|
|00002ec0| 72 61 6d 20 63 61 6c 6c | 73 20 74 68 65 20 70 72 |ram call|s the pr|
|00002ed0| 6f 63 65 64 75 72 65 20 | 43 68 65 63 6b 47 75 61 |ocedure |CheckGua|
|00002ee0| 72 64 73 2e 0d 0d 4e 6f | 74 65 20 74 68 61 74 20 |rds...No|te that |
|00002ef0| 77 68 65 6e 20 74 68 65 | 20 75 73 65 72 20 63 6c |when the| user cl|
|00002f00| 69 63 6b 73 20 69 6e 20 | 61 20 6d 65 6e 75 20 62 |icks in |a menu b|
|00002f10| 61 72 2c 20 70 6f 73 73 | 69 62 6c 79 20 61 6c 6c |ar, poss|ibly all|
|00002f20| 20 6d 65 6e 75 20 67 75 | 61 72 64 20 63 6f 6d 6d | menu gu|ard comm|
|00002f30| 61 6e 64 73 20 6d 61 79 | 20 62 65 20 65 78 65 63 |ands may| be exec|
|00002f40| 75 74 65 64 2e 20 41 66 | 74 65 72 20 74 68 65 20 |uted. Af|ter the |
|00002f50| 63 6f 6e 74 65 6e 74 73 | 20 6f 66 20 61 6e 20 69 |contents| of an i|
|00002f60| 6e 74 65 72 61 63 74 6f | 72 20 68 61 73 20 62 65 |nteracto|r has be|
|00002f70| 65 6e 20 63 68 61 6e 67 | 65 64 20 61 6e 64 20 43 |en chang|ed and C|
|00002f80| 68 65 63 6b 47 75 61 72 | 64 73 20 68 61 73 20 62 |heckGuar|ds has b|
|00002f90| 65 65 6e 20 63 61 6c 6c | 65 64 2c 20 61 6c 6c 20 |een call|ed, all |
|00002fa0| 63 6f 6e 74 72 6f 6c 20 | 67 75 61 72 64 73 20 61 |control |guards a|
|00002fb0| 72 65 20 65 78 65 63 75 | 74 65 64 2e 20 54 68 69 |re execu|ted. Thi|
|00002fc0| 73 20 6d 65 61 6e 73 20 | 74 77 6f 20 74 68 69 6e |s means |two thin|
|00002fd0| 67 73 2e 20 46 69 72 73 | 74 2c 20 61 20 67 75 61 |gs. Firs|t, a gua|
|00002fe0| 72 64 20 63 6f 6d 6d 61 | 6e 64 20 6d 75 73 74 20 |rd comma|nd must |
|00002ff0| 62 65 20 65 66 66 69 63 | 69 65 6e 74 2e 20 41 6e |be effic|ient. An|
|00003000| 64 20 73 65 63 6f 6e 64 | 2c 20 74 68 65 20 6d 6f |d second|, the mo|
|00003010| 64 75 6c 65 20 77 68 69 | 63 68 20 63 6f 6e 74 61 |dule whi|ch conta|
|00003020| 69 6e 73 20 74 68 65 20 | 67 75 61 72 64 20 69 73 |ins the |guard is|
|00003030| 20 6c 6f 61 64 65 64 20 | 61 73 20 73 6f 6f 6e 20 | loaded |as soon |
|00003040| 61 73 20 74 68 65 20 67 | 75 61 72 64 20 69 73 20 |as the g|uard is |
|00003050| 65 76 61 6c 75 61 74 65 | 64 20 66 6f 72 20 74 68 |evaluate|d for th|
|00003060| 65 20 66 69 72 73 74 20 | 74 69 6d 65 2e 20 49 6e |e first |time. In|
|00003070| 20 74 68 69 73 20 72 65 | 73 70 65 63 74 2c 20 6d | this re|spect, m|
|00003080| 65 6e 75 20 63 6f 6d 6d | 61 6e 64 73 20 61 72 65 |enu comm|ands are|
|00003090| 20 61 20 70 61 72 74 69 | 63 75 6c 61 72 20 70 69 | a parti|cular pi|
|000030a0| 74 66 61 6c 6c 20 64 75 | 72 69 6e 67 20 64 65 76 |tfall du|ring dev|
|000030b0| 65 6c 6f 70 6d 65 6e 74 | 3a 20 77 68 65 6e 20 61 |elopment|: when a|
|000030c0| 20 6d 6f 64 75 6c 65 20 | 68 61 73 20 62 65 65 6e | module |has been|
|000030d0| 20 75 6e 6c 6f 61 64 65 | 64 2c 20 69 74 20 69 73 | unloade|d, it is|
|000030e0| 20 72 65 6c 6f 61 64 65 | 64 20 61 73 20 73 6f 6f | reloade|d as soo|
|000030f0| 6e 20 61 73 20 74 68 65 | 20 75 73 65 72 20 74 72 |n as the| user tr|
|00003100| 69 65 73 20 74 6f 20 65 | 78 65 63 75 74 65 20 61 |ies to e|xecute a|
|00003110| 20 6d 65 6e 75 20 63 6f | 6d 6d 61 6e 64 2e 0d 0d | menu co|mmand...|
|00003120| 47 75 61 72 64 20 63 6f | 6d 6d 61 6e 64 73 20 6d |Guard co|mmands m|
|00003130| 61 79 20 6f 6e 6c 79 20 | 6d 6f 64 69 66 79 20 66 |ay only |modify f|
|00003140| 69 65 6c 64 73 20 6f 66 | 20 74 68 65 69 72 20 70 |ields of| their p|
|00003150| 61 72 20 70 61 72 61 6d | 65 74 65 72 73 2c 20 74 |ar param|eters, t|
|00003160| 68 65 79 20 6d 75 73 74 | 20 6e 6f 74 20 6d 6f 64 |hey must| not mod|
|00003170| 69 66 79 20 61 6e 79 20 | 6f 74 68 65 72 20 73 74 |ify any |other st|
|00003180| 61 74 65 20 6f 66 20 74 | 68 65 20 73 79 73 74 65 |ate of t|he syste|
|00003190| 6d 2c 20 65 2e 67 2e 20 | 67 6c 6f 62 61 6c 20 76 |m, e.g. |global v|
|000031a0| 61 72 69 61 62 6c 65 73 | 2e 0d 0d 0d 54 59 50 45 |ariables|....TYPE|
|000031b0| 20 4e 6f 74 69 66 79 50 | 72 6f 63 20 3d 20 50 52 | NotifyP|roc = PR|
|000031c0| 4f 43 45 44 55 52 45 20 | 28 6f 70 2c 20 66 72 6f |OCEDURE |(op, fro|
|000031d0| 6d 2c 20 74 6f 3a 20 4c | 4f 4e 47 49 4e 54 29 0d |m, to: L|ONGINT).|
|000031e0| 43 6f 6e 74 72 6f 6c 20 | 6e 6f 74 69 66 69 63 61 |Control |notifica|
|000031f0| 74 69 6f 6e 20 63 6f 6d | 6d 61 6e 64 73 20 6d 75 |tion com|mands mu|
|00003200| 73 74 20 68 61 76 65 20 | 74 68 69 73 20 73 69 67 |st have |this sig|
|00003210| 6e 61 74 75 72 65 2e 20 | 54 68 72 6f 75 67 68 20 |nature. |Through |
|00003220| 63 61 6c 6c 73 20 6f 66 | 20 6e 6f 74 69 66 69 63 |calls of| notific|
|00003230| 61 74 69 6f 6e 20 70 72 | 6f 63 65 64 75 72 65 73 |ation pr|ocedures|
|00003240| 2c 20 61 6e 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |, an app|lication|
|00003250| 20 63 61 6e 20 62 65 20 | 6e 6f 74 69 66 69 65 64 | can be |notified|
|00003260| 20 6f 66 20 6d 61 6e 69 | 70 75 6c 61 74 69 6f 6e | of mani|pulation|
|00003270| 73 20 6f 66 20 61 20 63 | 6f 6e 74 72 6f 6c 2e 20 |s of a c|ontrol. |
|00003280| 6f 70 20 64 65 74 65 72 | 6d 69 6e 65 73 20 74 68 |op deter|mines th|
|00003290| 65 20 6b 69 6e 64 20 6f | 66 20 6d 61 6e 69 70 75 |e kind o|f manipu|
|000032a0| 6c 61 74 69 6f 6e 3a 0d | 6f 70 20 3d 20 70 72 65 |lation:.|op = pre|
|000032b0| 73 73 65 64 3a 20 41 20 | 6d 6f 75 73 65 2d 64 6f |ssed: A |mouse-do|
|000032c0| 77 6e 20 65 76 65 6e 74 | 20 69 6e 20 61 20 62 75 |wn event| in a bu|
|000032d0| 74 74 6f 6e 20 68 61 73 | 20 6f 63 63 75 72 72 65 |tton has| occurre|
|000032e0| 64 2e 0d 6f 70 20 3d 20 | 72 65 6c 65 61 73 65 64 |d..op = |released|
|000032f0| 3a 20 41 20 6d 6f 75 73 | 65 2d 75 70 20 65 76 65 |: A mous|e-up eve|
|00003300| 6e 74 20 69 6e 20 61 20 | 62 75 74 74 6f 6e 20 68 |nt in a |button h|
|00003310| 61 73 20 6f 63 63 75 72 | 72 65 64 2e 0d 6f 70 20 |as occur|red..op |
|00003320| 3d 20 63 68 61 6e 67 65 | 64 3a 20 54 68 65 20 76 |= change|d: The v|
|00003330| 61 6c 75 65 20 6f 66 20 | 61 20 63 6f 6e 74 72 6f |alue of |a contro|
|00003340| 6c 20 28 6e 6f 74 20 62 | 6f 75 6e 64 20 74 6f 20 |l (not b|ound to |
|00003350| 61 20 4c 61 72 67 65 53 | 65 74 29 20 68 61 73 20 |a LargeS|et) has |
|00003360| 62 65 65 6e 20 63 68 61 | 6e 67 65 64 2e 0d 6f 70 |been cha|nged..op|
|00003370| 20 3d 20 69 6e 63 6c 75 | 64 65 64 3a 20 52 61 6e | = inclu|ded: Ran|
|00003380| 67 65 20 5b 66 72 6f 6d | 2e 2e 74 6f 5d 20 68 61 |ge [from|..to] ha|
|00003390| 73 20 62 65 65 6e 20 69 | 6e 63 6c 75 64 65 64 20 |s been i|ncluded |
|000033a0| 69 6e 20 61 20 4c 61 72 | 67 65 53 65 74 2e 20 49 |in a Lar|geSet. I|
|000033b0| 74 20 77 61 73 6e 27 74 | 20 69 6e 63 6c 75 64 65 |t wasn't| include|
|000033c0| 64 20 62 65 66 6f 72 65 | 2e 0d 6f 70 20 3d 20 65 |d before|..op = e|
|000033d0| 78 63 6c 75 64 65 64 3a | 20 52 61 6e 67 65 20 5b |xcluded:| Range [|
|000033e0| 66 72 6f 6d 2e 2e 74 6f | 5d 20 68 61 73 20 62 65 |from..to|] has be|
|000033f0| 65 6e 20 65 78 63 6c 75 | 64 65 64 20 66 72 6f 6d |en exclu|ded from|
|00003400| 20 61 20 4c 61 72 67 65 | 53 65 74 2e 20 49 74 20 | a Large|Set. It |
|00003410| 77 61 73 20 69 6e 63 6c | 75 64 65 64 20 62 65 66 |was incl|uded bef|
|00003420| 6f 72 65 2e 0d 6f 70 20 | 3d 20 73 65 74 3a 20 52 |ore..op |= set: R|
|00003430| 61 6e 67 65 20 5b 66 72 | 6f 6d 2e 2e 74 6f 5d 20 |ange [fr|om..to] |
|00003440| 68 61 73 20 62 65 65 6e | 20 73 65 74 20 69 6e 20 |has been| set in |
|00003450| 61 20 4c 61 72 67 65 53 | 65 74 2e 0d 0d 0d 56 41 |a LargeS|et....VA|
|00003460| 52 20 6d 65 74 72 69 63 | 53 79 73 74 65 6d 3a 20 |R metric|System: |
|00003470| 42 4f 4f 4c 45 41 4e 0d | 54 68 69 73 20 76 61 72 |BOOLEAN.|This var|
|00003480| 69 61 62 6c 65 20 69 6e | 64 69 63 61 74 65 73 20 |iable in|dicates |
|00003490| 77 68 65 74 68 65 72 20 | 73 69 7a 65 73 20 73 68 |whether |sizes sh|
|000034a0| 6f 75 6c 64 20 62 65 20 | 6d 65 61 73 75 72 65 64 |ould be |measured|
|000034b0| 20 69 6e 20 6d 65 74 72 | 69 63 20 75 6e 69 74 73 | in metr|ic units|
|000034c0| 20 6f 72 20 69 6e 20 69 | 6e 63 68 65 73 2e 0d 0d | or in i|nches...|
|000034d0| 56 41 52 20 73 68 6f 77 | 73 53 74 61 74 75 73 3a |VAR show|sStatus:|
|000034e0| 20 42 4f 4f 4c 45 41 4e | 0d 49 6e 64 69 63 61 74 | BOOLEAN|.Indicat|
|000034f0| 65 73 20 77 68 65 74 68 | 65 72 20 73 74 61 74 75 |es wheth|er statu|
|00003500| 73 20 6d 65 73 73 61 67 | 65 73 20 61 72 65 20 63 |s messag|es are c|
|00003510| 75 72 72 65 6e 74 6c 79 | 20 64 69 73 70 6c 61 79 |urrently| display|
|00003520| 65 64 2e 20 49 66 20 73 | 68 6f 77 73 53 74 61 74 |ed. If s|howsStat|
|00003530| 75 73 20 3d 20 46 41 4c | 53 45 2c 20 74 68 65 20 |us = FAL|SE, the |
|00003540| 70 72 6f 63 65 64 75 72 | 65 73 20 53 68 6f 77 50 |procedur|es ShowP|
|00003550| 61 72 61 6d 53 74 61 74 | 75 73 20 61 6e 64 20 53 |aramStat|us and S|
|00003560| 68 6f 77 53 74 61 74 75 | 73 20 77 69 6c 6c 20 68 |howStatu|s will h|
|00003570| 61 76 65 20 6e 6f 20 76 | 69 73 69 62 6c 65 20 65 |ave no v|isible e|
|00003580| 66 66 65 63 74 2e 0d 0d | 56 41 52 20 76 65 72 73 |ffect...|VAR vers|
|00003590| 69 6f 6e 3a 20 49 4e 54 | 45 47 45 52 0d 49 6e 64 |ion: INT|EGER.Ind|
|000035a0| 69 63 61 74 65 73 20 74 | 68 65 20 63 75 72 72 65 |icates t|he curre|
|000035b0| 6e 74 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 4f 62 |nt versi|on of Ob|
|000035c0| 65 72 6f 6e 2f 46 2e 0d | 09 31 30 20 3d 20 76 65 |eron/F..|.10 = ve|
|000035d0| 72 73 69 6f 6e 20 31 2e | 30 0d 09 31 31 20 3d 20 |rsion 1.|0..11 = |
|000035e0| 76 65 72 73 69 6f 6e 20 | 31 2e 31 0d 09 31 32 20 |version |1.1..12 |
|000035f0| 3d 20 76 65 72 73 69 6f | 6e 20 31 2e 32 0d 0d 56 |= versio|n 1.2..V|
|00003600| 41 52 20 70 6c 61 74 66 | 6f 72 6d 3a 20 49 4e 54 |AR platf|orm: INT|
|00003610| 45 47 45 52 0d 49 6e 64 | 69 63 61 74 65 73 20 6f |EGER.Ind|icates o|
|00003620| 6e 20 77 68 69 63 68 20 | 68 6f 73 74 20 6f 70 65 |n which |host ope|
|00003630| 72 61 74 69 6e 67 20 73 | 79 73 74 65 6d 20 74 68 |rating s|ystem th|
|00003640| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 69 73 |e applic|ation is|
|00003650| 20 72 75 6e 6e 69 6e 67 | 2e 0d 09 31 31 20 3d 20 | running|...11 = |
|00003660| 57 69 6e 64 6f 77 73 20 | 33 2e 31 0d 09 31 32 20 |Windows |3.1..12 |
|00003670| 3d 20 57 69 6e 64 6f 77 | 73 20 39 35 0d 09 31 33 |= Window|s 95..13|
|00003680| 20 3d 20 57 69 6e 64 6f | 77 73 20 4e 54 20 33 2e | = Windo|ws NT 3.|
|00003690| 78 0d 09 32 31 20 3d 20 | 4d 61 63 20 4f 53 20 37 |x..21 = |Mac OS 7|
|000036a0| 2e 78 0d 0d 56 41 52 20 | 61 70 70 4e 61 6d 65 3a |.x..VAR |appName:|
|000036b0| 20 41 52 52 41 59 20 33 | 32 20 4f 46 20 43 48 41 | ARRAY 3|2 OF CHA|
|000036c0| 52 0d 47 69 76 65 73 20 | 74 68 65 20 6e 61 6d 65 |R.Gives |the name|
|000036d0| 20 6f 66 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 | of the |applicat|
|000036e0| 69 6f 6e 20 70 72 6f 67 | 72 61 6d 20 77 68 69 63 |ion prog|ram whic|
|000036f0| 68 20 69 73 20 63 75 72 | 72 65 6e 74 6c 79 20 72 |h is cur|rently r|
|00003700| 75 6e 6e 69 6e 67 3b 20 | 74 68 65 20 64 65 66 61 |unning; |the defa|
|00003710| 75 6c 74 20 69 73 20 22 | 4f 62 65 72 6f 6e 2f 46 |ult is "|Oberon/F|
|00003720| 22 2e 0d 0d 0d 50 52 4f | 43 45 44 55 52 45 20 55 |"....PRO|CEDURE U|
|00003730| 70 64 61 74 65 20 28 56 | 41 52 20 69 3a 20 49 6e |pdate (V|AR i: In|
|00003740| 74 65 72 61 63 74 6f 72 | 29 0d 54 68 69 73 20 70 |teractor|).This p|
|00003750| 72 6f 63 65 64 75 72 65 | 20 73 68 6f 75 6c 64 20 |rocedure| should |
|00003760| 62 65 20 63 61 6c 6c 65 | 64 20 61 66 74 65 72 20 |be calle|d after |
|00003770| 6f 6e 65 20 6f 72 20 73 | 65 76 65 72 61 6c 20 66 |one or s|everal f|
|00003780| 69 65 6c 64 73 20 6f 66 | 20 74 68 65 20 69 6e 74 |ields of| the int|
|00003790| 65 72 61 63 74 6f 72 20 | 69 20 68 61 76 65 20 62 |eractor |i have b|
|000037a0| 65 65 6e 20 6d 6f 64 69 | 66 69 65 64 20 62 79 20 |een modi|fied by |
|000037b0| 61 20 70 72 6f 67 72 61 | 6d 20 28 6e 6f 74 20 6e |a progra|m (not n|
|000037c0| 65 63 65 73 73 61 72 69 | 6c 79 20 77 68 65 6e 20 |ecessari|ly when |
|000037d0| 61 20 66 69 65 6c 64 20 | 68 61 73 20 62 65 65 6e |a field |has been|
|000037e0| 20 6d 6f 64 69 66 69 65 | 64 20 69 6e 74 65 72 61 | modifie|d intera|
|000037f0| 63 74 69 76 65 6c 79 20 | 76 69 61 20 61 20 63 6f |ctively |via a co|
|00003800| 6e 74 72 6f 6c 29 2e 20 | 49 74 20 63 61 75 73 65 |ntrol). |It cause|
|00003810| 73 20 61 6c 6c 20 63 6f | 6e 74 72 6f 6c 73 20 77 |s all co|ntrols w|
|00003820| 68 69 63 68 20 61 72 65 | 20 62 6f 75 6e 64 20 74 |hich are| bound t|
|00003830| 6f 20 66 69 65 6c 64 73 | 20 6f 66 20 74 68 69 73 |o fields| of this|
|00003840| 20 69 6e 74 65 72 61 63 | 74 6f 72 20 74 6f 20 62 | interac|tor to b|
|00003850| 65 20 75 70 64 61 74 65 | 64 2e 0d 0d 50 52 4f 43 |e update|d...PROC|
|00003860| 45 44 55 52 45 20 55 70 | 64 61 74 65 4c 69 73 74 |EDURE Up|dateList|
|00003870| 20 28 56 41 52 20 66 3a | 20 46 69 65 6c 64 29 0d | (VAR f:| Field).|
|00003880| 46 6f 72 20 6c 69 73 74 | 2d 73 74 72 75 63 74 75 |For list|-structu|
|00003890| 72 65 64 20 63 6f 6e 74 | 72 6f 6c 73 20 28 6c 69 |red cont|rols (li|
|000038a0| 73 74 20 62 6f 78 65 73 | 2c 20 73 65 6c 65 63 74 |st boxes|, select|
|000038b0| 69 6f 6e 20 62 6f 78 65 | 73 2c 20 63 6f 6d 62 6f |ion boxe|s, combo|
|000038c0| 20 62 6f 78 65 73 29 2c | 20 74 68 65 20 6c 69 73 | boxes),| the lis|
|000038d0| 74 73 20 61 72 65 20 72 | 65 2d 63 72 65 61 74 65 |ts are r|e-create|
|000038e0| 64 2e 20 46 6f 72 20 65 | 66 66 69 63 69 65 6e 63 |d. For e|fficienc|
|000038f0| 79 20 72 65 61 73 6f 6e | 73 2c 20 74 68 69 73 20 |y reason|s, this |
|00003900| 69 73 20 6e 6f 74 20 64 | 6f 6e 65 20 61 66 74 65 |is not d|one afte|
|00003910| 72 20 61 20 63 61 6c 6c | 20 74 6f 20 55 70 64 61 |r a call| to Upda|
|00003920| 74 65 2e 0d 0d 50 52 4f | 43 45 44 55 52 45 20 43 |te...PRO|CEDURE C|
|00003930| 68 65 63 6b 47 75 61 72 | 64 73 0d 54 68 69 73 20 |heckGuar|ds.This |
|00003940| 70 72 6f 63 65 64 75 72 | 65 20 73 68 6f 75 6c 64 |procedur|e should|
|00003950| 20 62 65 20 63 61 6c 6c | 65 64 20 61 66 74 65 72 | be call|ed after|
|00003960| 20 6f 6e 65 20 6f 72 20 | 73 65 76 65 72 61 6c 20 | one or |several |
|00003970| 66 69 65 6c 64 73 20 6f | 66 20 73 6f 6d 65 20 69 |fields o|f some i|
|00003980| 6e 74 65 72 61 63 74 6f | 72 20 68 61 76 65 20 62 |nteracto|r have b|
|00003990| 65 65 6e 20 6d 6f 64 69 | 66 69 65 64 2e 20 54 79 |een modi|fied. Ty|
|000039a0| 70 69 63 61 6c 6c 79 2c | 20 74 68 69 73 20 70 72 |pically,| this pr|
|000039b0| 6f 63 65 64 75 72 65 20 | 69 73 20 63 61 6c 6c 65 |ocedure |is calle|
|000039c0| 64 20 61 66 74 65 72 20 | 6f 6e 65 20 6f 66 20 74 |d after |one of t|
|000039d0| 68 65 20 61 62 6f 76 65 | 20 75 70 64 61 74 65 20 |he above| update |
|000039e0| 70 72 6f 63 65 64 75 72 | 65 73 20 68 61 73 20 62 |procedur|es has b|
|000039f0| 65 65 6e 20 63 61 6c 6c | 65 64 2e 20 43 68 65 63 |een call|ed. Chec|
|00003a00| 6b 47 75 61 72 64 73 20 | 65 78 65 63 75 74 65 73 |kGuards |executes|
|00003a10| 20 61 6c 6c 20 63 6f 6e | 74 72 6f 6c 20 67 75 61 | all con|trol gua|
|00003a20| 72 64 73 20 6f 66 20 6f | 70 65 6e 20 63 6f 6e 74 |rds of o|pen cont|
|00003a30| 72 6f 6c 73 2e 20 54 68 | 69 73 20 6d 61 6b 65 73 |rols. Th|is makes|
|00003a40| 20 69 74 20 70 6f 73 73 | 69 62 6c 65 20 65 2e 67 | it poss|ible e.g|
|00003a50| 2e 20 74 6f 20 65 6e 61 | 62 6c 65 2f 64 69 73 61 |. to ena|ble/disa|
|00003a60| 62 6c 65 20 63 6f 6e 74 | 72 6f 6c 73 20 64 65 70 |ble cont|rols dep|
|00003a70| 65 6e 64 69 6e 67 20 6f | 6e 20 74 68 65 20 63 75 |ending o|n the cu|
|00003a80| 72 72 65 6e 74 20 73 74 | 61 74 65 20 6f 66 20 61 |rrent st|ate of a|
|00003a90| 6e 20 69 6e 74 65 72 61 | 63 74 6f 72 2e 0d 0d 50 |n intera|ctor...P|
|00003aa0| 52 4f 43 45 44 55 52 45 | 20 4d 61 70 50 61 72 61 |ROCEDURE| MapPara|
|00003ab0| 6d 53 74 72 69 6e 67 20 | 28 69 6e 2c 20 70 30 2c |mString |(in, p0,|
|00003ac0| 20 70 31 2c 20 70 32 3a | 20 41 52 52 41 59 20 4f | p1, p2:| ARRAY O|
|00003ad0| 46 20 43 48 41 52 3b 0d | 09 09 09 09 09 09 09 09 |F CHAR;.|........|
|00003ae0| 09 09 09 09 09 09 09 56 | 41 52 20 6f 75 74 3a 20 |.......V|AR out: |
|00003af0| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 0d 54 |ARRAY OF| CHAR).T|
|00003b00| 72 61 6e 73 6c 61 74 65 | 73 20 73 74 72 69 6e 67 |ranslate|s string|
|00003b10| 20 69 6e 20 69 6e 74 6f | 20 73 74 72 69 6e 67 20 | in into| string |
|00003b20| 6f 75 74 2e 20 53 74 72 | 69 6e 67 73 20 6f 66 20 |out. Str|ings of |
|00003b30| 74 68 65 20 66 6f 72 6d | 20 22 23 53 75 62 73 79 |the form| "#Subsy|
|00003b40| 73 74 65 6d 3a 6d 65 73 | 73 61 67 65 22 20 61 72 |stem:mes|sage" ar|
|00003b50| 65 20 74 72 61 6e 73 6c | 61 74 65 64 20 69 66 20 |e transl|ated if |
|00003b60| 74 68 65 72 65 20 69 73 | 20 61 20 63 6f 72 72 65 |there is| a corre|
|00003b70| 73 70 6f 6e 64 69 6e 67 | 20 22 73 74 72 69 6e 67 |sponding| "string|
|00003b80| 73 22 20 72 65 73 6f 75 | 72 63 65 20 66 69 6c 65 |s" resou|rce file|
|00003b90| 20 66 6f 72 20 74 68 69 | 73 20 73 75 62 73 79 73 | for thi|s subsys|
|00003ba0| 74 65 6d 20 28 69 6e 20 | 74 68 65 20 73 75 62 73 |tem (in |the subs|
|00003bb0| 79 73 74 65 6d 27 73 20 | 22 52 73 72 63 22 20 64 |ystem's |"Rsrc" d|
|00003bc0| 69 72 65 63 74 6f 72 79 | 29 2e 20 4f 74 68 65 72 |irectory|). Other|
|00003bd0| 77 69 73 65 2c 20 74 68 | 65 20 22 23 53 75 62 73 |wise, th|e "#Subs|
|00003be0| 79 73 74 65 6d 3a 22 20 | 70 72 65 66 69 78 20 69 |ystem:" |prefix i|
|00003bf0| 73 20 73 74 72 69 70 70 | 65 64 20 61 77 61 79 2c |s stripp|ed away,|
|00003c00| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 20 | if ther|e is no |
|00003c10| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 2e 0d 41 |resource| file..A|
|00003c20| 73 20 61 6e 20 65 78 61 | 6d 70 6c 65 2c 20 22 23 |s an exa|mple, "#|
|00003c30| 53 79 73 74 65 6d 3a 43 | 61 6e 63 65 6c 22 20 6d |System:C|ancel" m|
|00003c40| 61 79 20 62 65 20 74 72 | 61 6e 73 6c 61 74 65 64 |ay be tr|anslated|
|00003c50| 20 74 6f 20 22 43 61 6e | 63 65 6c 22 20 69 6e 20 | to "Can|cel" in |
|00003c60| 74 68 65 20 55 53 41 2c | 20 61 6e 64 20 74 6f 20 |the USA,| and to |
|00003c70| 22 41 62 62 72 65 63 68 | 65 6e 22 20 69 6e 20 47 |"Abbrech|en" in G|
|00003c80| 65 72 6d 61 6e 79 3b 20 | 6f 72 20 74 6f 20 22 43 |ermany; |or to "C|
|00003c90| 61 6e 63 65 6c 22 20 69 | 66 20 74 68 65 20 72 65 |ancel" i|f the re|
|00003ca0| 73 6f 75 72 63 65 20 66 | 69 6c 65 20 6f 72 20 74 |source f|ile or t|
|00003cb0| 68 65 20 61 70 70 72 6f | 70 72 69 61 74 65 20 65 |he appro|priate e|
|00003cc0| 6e 74 72 79 20 69 73 20 | 6d 69 73 73 69 6e 67 2e |ntry is |missing.|
|00003cd0| 0d 54 68 72 65 65 20 61 | 64 64 69 74 69 6f 6e 61 |.Three a|dditiona|
|00003ce0| 6c 20 69 6e 70 75 74 20 | 70 61 72 61 6d 65 74 65 |l input |paramete|
|00003cf0| 72 73 20 63 61 6e 20 62 | 65 20 73 70 6c 69 63 65 |rs can b|e splice|
|00003d00| 64 20 69 6e 74 6f 20 74 | 68 65 20 69 6e 20 70 61 |d into t|he in pa|
|00003d10| 72 61 6d 65 74 65 72 2e | 20 54 68 65 73 65 20 70 |rameter.| These p|
|00003d20| 61 72 61 6d 65 74 65 72 | 73 20 61 72 65 20 69 6e |arameter|s are in|
|00003d30| 73 65 72 74 65 64 20 77 | 68 65 72 65 20 22 5e 30 |serted w|here "^0|
|00003d40| 22 2c 20 22 5e 31 22 2c | 20 6f 72 20 22 5e 32 22 |", "^1",| or "^2"|
|00003d50| 20 6f 63 63 75 72 20 69 | 6e 20 69 6e 2e 20 54 68 | occur i|n in. Th|
|00003d60| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 61 72 65 |e parame|ters are|
|00003d70| 20 6d 61 70 70 65 64 20 | 69 6e 64 69 76 69 64 75 | mapped |individu|
|00003d80| 61 6c 6c 79 20 61 73 20 | 77 65 6c 6c 2e 0d 4d 61 |ally as |well..Ma|
|00003d90| 70 50 61 72 61 6d 53 74 | 72 69 6e 67 20 61 6c 6c |pParamSt|ring all|
|00003da0| 6f 77 73 20 74 6f 20 72 | 65 6d 6f 76 65 20 63 6f |ows to r|emove co|
|00003db0| 75 6e 74 72 79 2d 20 61 | 6e 64 20 6c 61 6e 67 75 |untry- a|nd langu|
|00003dc0| 61 67 65 2d 73 70 65 63 | 69 66 69 63 20 73 74 72 |age-spec|ific str|
|00003dd0| 69 6e 67 73 20 66 72 6f | 6d 20 61 20 70 72 6f 67 |ings fro|m a prog|
|00003de0| 72 61 6d 20 73 6f 75 72 | 63 65 20 74 65 78 74 2c |ram sour|ce text,|
|00003df0| 20 77 68 69 6c 65 20 61 | 74 20 74 68 65 20 73 61 | while a|t the sa|
|00003e00| 6d 65 20 74 69 6d 65 20 | 70 72 6f 76 69 64 69 6e |me time |providin|
|00003e10| 67 20 61 20 64 65 66 61 | 75 6c 74 20 73 74 72 69 |g a defa|ult stri|
|00003e20| 6e 67 20 69 6e 20 74 68 | 65 20 70 72 6f 67 72 61 |ng in th|e progra|
|00003e30| 6d 20 73 6f 75 72 63 65 | 20 74 65 78 74 20 73 75 |m source| text su|
|00003e40| 63 68 20 74 68 61 74 20 | 74 68 65 20 70 72 6f 67 |ch that |the prog|
|00003e50| 72 61 6d 20 61 6c 77 61 | 79 73 20 77 6f 72 6b 73 |ram alwa|ys works|
|00003e60| 2c 20 65 76 65 6e 20 69 | 66 20 73 74 72 69 6e 67 |, even i|f string|
|00003e70| 20 72 65 73 6f 75 72 63 | 65 73 20 61 72 65 20 6d | resourc|es are m|
|00003e80| 69 73 73 69 6e 67 2e 0d | 0d 50 52 4f 43 45 44 55 |issing..|.PROCEDU|
|00003e90| 52 45 20 4d 61 70 53 74 | 72 69 6e 67 20 28 69 6e |RE MapSt|ring (in|
|00003ea0| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 3b |: ARRAY |OF CHAR;|
|00003eb0| 20 56 41 52 20 6f 75 74 | 3a 20 41 52 52 41 59 20 | VAR out|: ARRAY |
|00003ec0| 4f 46 20 43 48 41 52 29 | 0d 54 68 69 73 20 69 73 |OF CHAR)|.This is|
|00003ed0| 20 61 20 73 69 6d 70 6c | 69 66 69 65 64 20 76 65 | a simpl|ified ve|
|00003ee0| 72 73 69 6f 6e 20 6f 66 | 20 4d 61 70 50 61 72 61 |rsion of| MapPara|
|00003ef0| 6d 53 74 72 69 6e 67 20 | 77 68 69 63 68 20 68 61 |mString |which ha|
|00003f00| 73 20 6e 6f 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |s no add|itional |
|00003f10| 69 6e 70 75 74 20 70 61 | 72 61 6d 65 74 65 72 73 |input pa|rameters|
|00003f20| 2e 0d 0d 45 78 63 65 70 | 74 20 66 6f 72 20 70 65 |...Excep|t for pe|
|00003f30| 72 66 6f 72 6d 61 6e 63 | 65 2c 20 65 71 75 69 76 |rformanc|e, equiv|
|00003f40| 61 6c 65 6e 74 20 74 6f | 3a 0d 09 4d 61 70 50 61 |alent to|:..MapPa|
|00003f50| 72 61 6d 53 74 72 69 6e | 67 28 69 6e 2c 20 22 22 |ramStrin|g(in, ""|
|00003f60| 2c 20 22 22 2c 20 22 22 | 2c 20 6f 75 74 29 0d 0d |, "", ""|, out)..|
|00003f70| 50 52 4f 43 45 44 55 52 | 45 20 53 68 6f 77 50 61 |PROCEDUR|E ShowPa|
|00003f80| 72 61 6d 4d 73 67 20 28 | 73 74 72 2c 20 70 30 2c |ramMsg (|str, p0,|
|00003f90| 20 70 31 2c 20 70 32 3a | 20 41 52 52 41 59 20 4f | p1, p2:| ARRAY O|
|00003fa0| 46 20 43 48 41 52 29 0d | 50 72 65 73 65 6e 74 73 |F CHAR).|Presents|
|00003fb0| 20 73 74 72 20 61 73 20 | 61 20 6d 65 73 73 61 67 | str as |a messag|
|00003fc0| 65 20 74 6f 20 74 68 65 | 20 75 73 65 72 2e 20 54 |e to the| user. T|
|00003fd0| 68 65 20 73 74 72 69 6e | 67 20 69 73 20 6d 61 70 |he strin|g is map|
|00003fe0| 70 65 64 2c 20 61 73 20 | 61 72 65 20 74 68 65 20 |ped, as |are the |
|00003ff0| 61 64 64 69 74 69 6f 6e | 61 6c 20 69 6e 70 75 74 |addition|al input|
|00004000| 20 70 61 72 61 6d 65 74 | 65 72 73 20 70 30 2c 20 | paramet|ers p0, |
|00004010| 70 31 2c 20 61 6e 64 20 | 70 32 2e 20 54 68 69 73 |p1, and |p2. This|
|00004020| 20 70 72 6f 63 65 64 75 | 72 65 20 69 73 20 75 73 | procedu|re is us|
|00004030| 65 64 20 74 6f 20 70 72 | 65 73 65 6e 74 20 75 72 |ed to pr|esent ur|
|00004040| 67 65 6e 74 20 6d 65 73 | 73 61 67 65 73 20 74 6f |gent mes|sages to|
|00004050| 20 74 68 65 20 75 73 65 | 72 2c 20 74 79 70 69 63 | the use|r, typic|
|00004060| 61 6c 6c 79 20 61 6c 65 | 72 74 69 6e 67 20 74 68 |ally ale|rting th|
|00004070| 65 20 75 73 65 72 20 74 | 68 61 74 20 73 6f 6d 65 |e user t|hat some|
|00004080| 20 61 63 74 69 6f 6e 20 | 68 61 73 20 66 61 69 6c | action |has fail|
|00004090| 65 64 2e 20 49 74 20 73 | 68 6f 75 6c 64 6e 27 74 |ed. It s|houldn't|
|000040a0| 20 62 65 20 75 73 65 64 | 20 66 6f 72 20 63 61 73 | be used| for cas|
|000040b0| 75 61 6c 20 73 75 63 63 | 65 73 73 20 6d 65 73 73 |ual succ|ess mess|
|000040c0| 61 67 65 73 2e 0d 0d 50 | 52 4f 43 45 44 55 52 45 |ages...P|ROCEDURE|
|000040d0| 20 53 68 6f 77 4d 73 67 | 20 50 52 4f 43 45 44 55 | ShowMsg| PROCEDU|
|000040e0| 52 45 20 28 73 74 72 3a | 20 41 52 52 41 59 20 4f |RE (str:| ARRAY O|
|000040f0| 46 20 43 48 41 52 29 0d | 54 68 69 73 20 69 73 20 |F CHAR).|This is |
|00004100| 61 20 73 69 6d 70 6c 69 | 66 69 65 64 20 76 65 72 |a simpli|fied ver|
|00004110| 73 69 6f 6e 20 6f 66 20 | 53 68 6f 77 50 61 72 61 |sion of |ShowPara|
|00004120| 6d 4d 73 67 20 77 68 69 | 63 68 20 68 61 73 20 6e |mMsg whi|ch has n|
|00004130| 6f 20 61 64 64 69 74 69 | 6f 6e 61 6c 20 69 6e 70 |o additi|onal inp|
|00004140| 75 74 20 70 61 72 61 6d | 65 74 65 72 73 2e 0d 0d |ut param|eters...|
|00004150| 45 78 63 65 70 74 20 66 | 6f 72 20 70 65 72 66 6f |Except f|or perfo|
|00004160| 72 6d 61 6e 63 65 2c 20 | 65 71 75 69 76 61 6c 65 |rmance, |equivale|
|00004170| 6e 74 20 74 6f 3a 0d 09 | 53 68 6f 77 50 61 72 61 |nt to:..|ShowPara|
|00004180| 6d 4d 73 67 28 73 74 72 | 2c 20 22 22 2c 20 22 22 |mMsg(str|, "", ""|
|00004190| 2c 20 22 22 29 0d 0d 50 | 52 4f 43 45 44 55 52 45 |, "")..P|ROCEDURE|
|000041a0| 20 53 68 6f 77 50 61 72 | 61 6d 53 74 61 74 75 73 | ShowPar|amStatus|
|000041b0| 20 28 73 74 72 2c 20 70 | 30 2c 20 70 31 2c 20 70 | (str, p|0, p1, p|
|000041c0| 32 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |2: ARRAY| OF CHAR|
|000041d0| 29 0d 50 72 65 73 65 6e | 74 73 20 73 74 72 20 61 |).Presen|ts str a|
|000041e0| 73 20 61 20 6d 65 73 73 | 61 67 65 20 74 6f 20 74 |s a mess|age to t|
|000041f0| 68 65 20 75 73 65 72 2e | 20 54 68 65 20 73 74 72 |he user.| The str|
|00004200| 69 6e 67 20 69 73 20 6d | 61 70 70 65 64 2c 20 61 |ing is m|apped, a|
|00004210| 73 20 61 72 65 20 74 68 | 65 20 61 64 64 69 74 69 |s are th|e additi|
|00004220| 6f 6e 61 6c 20 69 6e 70 | 75 74 20 70 61 72 61 6d |onal inp|ut param|
|00004230| 65 74 65 72 73 20 70 30 | 2c 20 70 31 2c 20 61 6e |eters p0|, p1, an|
|00004240| 64 20 70 32 2e 20 49 6e | 20 63 6f 6e 74 72 61 73 |d p2. In| contras|
|00004250| 74 20 74 6f 20 53 68 6f | 77 50 61 72 61 6d 4d 73 |t to Sho|wParamMs|
|00004260| 67 2c 20 53 68 6f 77 50 | 61 72 61 6d 53 74 61 74 |g, ShowP|aramStat|
|00004270| 75 73 20 69 73 20 75 73 | 65 64 20 66 6f 72 20 73 |us is us|ed for s|
|00004280| 68 6f 72 74 65 72 2d 6c | 69 76 65 64 20 61 6e 64 |horter-l|ived and|
|00004290| 20 6c 65 73 73 20 75 72 | 67 65 6e 74 20 6d 65 73 | less ur|gent mes|
|000042a0| 73 61 67 65 73 2c 20 65 | 2e 67 2e 20 6d 65 73 73 |sages, e|.g. mess|
|000042b0| 61 67 65 73 20 70 72 6f | 64 75 63 65 64 20 61 6e |ages pro|duced an|
|000042c0| 64 20 75 70 64 61 74 65 | 64 20 64 75 72 69 6e 67 |d update|d during|
|000042d0| 20 61 20 6c 65 6e 67 74 | 68 79 20 70 72 6f 63 65 | a lengt|hy proce|
|000042e0| 73 73 2e 20 54 68 69 73 | 20 70 72 6f 63 65 64 75 |ss. This| procedu|
|000042f0| 72 65 20 73 68 6f 75 6c | 64 20 6e 6f 74 20 62 65 |re shoul|d not be|
|00004300| 20 75 73 65 64 20 66 6f | 72 20 76 69 74 61 6c 20 | used fo|r vital |
|00004310| 6d 65 73 73 61 67 65 73 | 2c 20 62 65 63 61 75 73 |messages|, becaus|
|00004320| 65 20 6f 6e 20 73 6f 6d | 65 20 70 6c 61 74 66 6f |e on som|e platfo|
|00004330| 72 6d 73 20 74 68 65 72 | 65 20 6d 61 79 20 62 65 |rms ther|e may be|
|00004340| 20 6e 6f 20 73 74 61 74 | 75 73 20 61 72 65 61 20 | no stat|us area |
|00004350| 74 6f 20 64 69 73 70 6c | 61 79 20 73 74 61 74 75 |to displ|ay statu|
|00004360| 73 20 6d 65 73 73 61 67 | 65 73 2c 20 6f 72 20 74 |s messag|es, or t|
|00004370| 68 65 20 6d 65 73 73 61 | 67 65 20 6d 65 63 68 61 |he messa|ge mecha|
|00004380| 6e 69 73 6d 20 6d 61 79 | 20 63 75 72 72 65 6e 74 |nism may| current|
|00004390| 6c 79 20 62 65 20 73 77 | 69 74 63 68 65 64 20 6f |ly be sw|itched o|
|000043a0| 66 66 2e 20 54 68 65 73 | 65 20 63 6f 6e 64 69 74 |ff. Thes|e condit|
|000043b0| 69 6f 6e 73 20 61 72 65 | 20 69 6e 64 69 63 61 74 |ions are| indicat|
|000043c0| 65 64 20 62 79 20 74 68 | 65 20 67 6c 6f 62 61 6c |ed by th|e global|
|000043d0| 20 76 61 72 69 61 62 6c | 65 20 73 68 6f 77 73 53 | variabl|e showsS|
|000043e0| 74 61 74 75 73 2e 0d 0d | 50 52 4f 43 45 44 55 52 |tatus...|PROCEDUR|
|000043f0| 45 20 53 68 6f 77 53 74 | 61 74 75 73 20 50 52 4f |E ShowSt|atus PRO|
|00004400| 43 45 44 55 52 45 20 28 | 73 74 72 3a 20 41 52 52 |CEDURE (|str: ARR|
|00004410| 41 59 20 4f 46 20 43 48 | 41 52 29 0d 54 68 69 73 |AY OF CH|AR).This|
|00004420| 20 69 73 20 61 20 73 69 | 6d 70 6c 69 66 69 65 64 | is a si|mplified|
|00004430| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 53 68 6f 77 | version| of Show|
|00004440| 50 61 72 61 6d 53 74 61 | 74 75 73 20 77 68 69 63 |ParamSta|tus whic|
|00004450| 68 20 68 61 73 20 6e 6f | 20 61 64 64 69 74 69 6f |h has no| additio|
|00004460| 6e 61 6c 20 69 6e 70 75 | 74 20 70 61 72 61 6d 65 |nal inpu|t parame|
|00004470| 74 65 72 73 2e 0d 0d 45 | 78 63 65 70 74 20 66 6f |ters...E|xcept fo|
|00004480| 72 20 70 65 72 66 6f 72 | 6d 61 6e 63 65 2c 20 65 |r perfor|mance, e|
|00004490| 71 75 69 76 61 6c 65 6e | 74 20 74 6f 3a 0d 09 53 |quivalen|t to:..S|
|000044a0| 68 6f 77 50 61 72 61 6d | 53 74 61 74 75 73 28 73 |howParam|Status(s|
|000044b0| 74 72 2c 20 22 22 2c 20 | 22 22 2c 20 22 22 29 0d |tr, "", |"", "").|
|000044c0| 0d 50 52 4f 43 45 44 55 | 52 45 20 46 6c 75 73 68 |.PROCEDU|RE Flush|
|000044d0| 4d 61 70 70 69 6e 67 73 | 0d 46 6c 75 73 68 20 61 |Mappings|.Flush a|
|000044e0| 6c 6c 20 73 74 72 69 6e | 67 20 6d 61 70 70 69 6e |ll strin|g mappin|
|000044f0| 67 20 74 61 62 6c 65 73 | 2e 20 54 68 69 73 20 66 |g tables|. This f|
|00004500| 6f 72 63 65 73 20 61 20 | 72 65 6c 6f 61 64 20 6f |orces a |reload o|
|00004510| 66 20 74 68 65 73 65 20 | 74 61 62 6c 65 73 20 66 |f these |tables f|
|00004520| 72 6f 6d 20 74 68 65 20 | 73 74 72 69 6e 67 20 72 |rom the |string r|
|00004530| 65 73 6f 75 72 63 65 20 | 66 69 6c 65 73 20 61 73 |esource |files as|
|00004540| 20 73 6f 6f 6e 20 61 73 | 20 74 68 65 20 6d 61 70 | soon as| the map|
|00004550| 70 69 6e 67 73 20 61 72 | 65 20 70 65 72 66 6f 72 |pings ar|e perfor|
|00004560| 6d 65 64 20 61 67 61 69 | 6e 2e 0d 0d 50 52 4f 43 |med agai|n...PROC|
|00004570| 45 44 55 52 45 20 47 65 | 74 4f 4b 20 28 73 74 72 |EDURE Ge|tOK (str|
|00004580| 2c 20 70 30 2c 20 70 31 | 2c 20 70 32 3a 20 41 52 |, p0, p1|, p2: AR|
|00004590| 52 41 59 20 4f 46 20 43 | 48 41 52 3b 20 56 41 52 |RAY OF C|HAR; VAR|
|000045a0| 20 6f 6b 3a 20 42 4f 4f | 4c 45 41 4e 29 0d 4d 6f | ok: BOO|LEAN).Mo|
|000045b0| 64 61 6c 20 64 69 61 6c | 6f 67 0d 50 72 65 73 65 |dal dial|og.Prese|
|000045c0| 6e 74 73 20 61 20 6d 61 | 70 70 65 64 20 73 74 72 |nts a ma|pped str|
|000045d0| 69 6e 67 2c 20 77 69 74 | 68 20 74 68 65 20 6f 70 |ing, wit|h the op|
|000045e0| 74 69 6f 6e 61 6c 20 70 | 61 72 61 6d 65 74 65 72 |tional p|arameter|
|000045f0| 73 20 70 30 20 74 6f 20 | 70 32 2c 20 69 6e 20 61 |s p0 to |p2, in a|
|00004600| 20 6d 6f 64 61 6c 20 64 | 69 61 6c 6f 67 20 62 6f | modal d|ialog bo|
|00004610| 78 2e 20 54 68 65 20 75 | 73 65 72 20 68 61 73 20 |x. The u|ser has |
|00004620| 74 68 65 20 63 68 6f 69 | 63 65 73 20 74 6f 20 73 |the choi|ces to s|
|00004630| 61 79 20 22 79 65 73 22 | 20 28 6f 6b 29 20 6f 72 |ay "yes"| (ok) or|
|00004640| 20 22 6e 6f 22 2e 20 54 | 68 65 20 72 65 73 75 6c | "no". T|he resul|
|00004650| 74 20 69 73 20 72 65 74 | 75 72 6e 65 64 20 69 6e |t is ret|urned in|
|00004660| 20 6f 6b 2e 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 | ok...PR|OCEDURE |
|00004670| 47 65 74 49 6e 74 53 70 | 65 63 20 28 64 65 66 54 |GetIntSp|ec (defT|
|00004680| 79 70 65 3a 20 46 69 6c | 65 73 2e 54 79 70 65 3b |ype: Fil|es.Type;|
|00004690| 20 56 41 52 20 6c 6f 63 | 3a 20 46 69 6c 65 73 2e | VAR loc|: Files.|
|000046a0| 4c 6f 63 61 74 6f 72 3b | 20 56 41 52 20 6e 61 6d |Locator;| VAR nam|
|000046b0| 65 3a 20 46 69 6c 65 73 | 2e 4e 61 6d 65 29 0d 4d |e: Files|.Name).M|
|000046c0| 6f 64 61 6c 20 64 69 61 | 6c 6f 67 0d 41 73 6b 20 |odal dia|log.Ask |
|000046d0| 74 68 65 20 75 73 65 72 | 20 66 6f 72 20 61 20 66 |the user| for a f|
|000046e0| 69 6c 65 20 73 70 65 63 | 69 66 69 63 61 74 69 6f |ile spec|ificatio|
|000046f0| 6e 20 28 6c 6f 63 2c 20 | 6e 61 6d 65 29 2e 20 64 |n (loc, |name). d|
|00004700| 65 66 54 79 70 65 20 69 | 6e 64 69 63 61 74 65 73 |efType i|ndicates|
|00004710| 20 77 68 69 63 68 20 66 | 69 6c 65 20 74 79 70 65 | which f|ile type|
|00004720| 20 69 73 20 64 65 73 69 | 72 65 64 20 28 22 22 20 | is desi|red ("" |
|00004730| 73 74 61 6e 64 73 20 66 | 6f 72 20 61 6e 79 20 66 |stands f|or any f|
|00004740| 69 6c 65 20 74 79 70 65 | 3b 20 6f 74 68 65 72 20 |ile type|; other |
|00004750| 74 79 70 65 73 20 61 72 | 65 20 70 6c 61 74 66 6f |types ar|e platfo|
|00004760| 72 6d 2d 73 70 65 63 69 | 66 69 63 2c 20 65 2e 67 |rm-speci|fic, e.g|
|00004770| 2e 20 22 74 78 74 22 20 | 66 6f 72 20 57 69 6e 64 |. "txt" |for Wind|
|00004780| 6f 77 73 20 41 73 63 69 | 69 20 66 69 6c 65 73 20 |ows Asci|i files |
|00004790| 6f 72 20 22 54 45 58 54 | 22 20 66 6f 72 20 4d 61 |or "TEXT|" for Ma|
|000047a0| 63 69 6e 74 6f 73 68 20 | 41 73 63 69 69 20 66 69 |cintosh |Ascii fi|
|000047b0| 6c 65 73 29 2e 20 6c 6f | 63 20 23 20 4e 49 4c 20 |les). lo|c # NIL |
|000047c0| 69 6e 64 69 63 61 74 65 | 73 20 61 20 76 61 6c 69 |indicate|s a vali|
|000047d0| 64 20 66 69 6c 65 20 73 | 70 65 63 69 66 69 63 61 |d file s|pecifica|
|000047e0| 74 69 6f 6e 2e 0d 0d 50 | 52 4f 43 45 44 55 52 45 |tion...P|ROCEDURE|
|000047f0| 20 47 65 74 45 78 74 53 | 70 65 63 20 28 64 65 66 | GetExtS|pec (def|
|00004800| 4e 61 6d 65 3a 20 46 69 | 6c 65 73 2e 4e 61 6d 65 |Name: Fi|les.Name|
|00004810| 3b 20 64 65 66 54 79 70 | 65 3a 20 46 69 6c 65 73 |; defTyp|e: Files|
|00004820| 2e 54 79 70 65 3b 20 56 | 41 52 20 6c 6f 63 3a 20 |.Type; V|AR loc: |
|00004830| 46 69 6c 65 73 2e 4c 6f | 63 61 74 6f 72 3b 0d 09 |Files.Lo|cator;..|
|00004840| 09 09 09 09 09 09 09 09 | 09 09 09 56 41 52 20 6e |........|...VAR n|
|00004850| 61 6d 65 3a 20 46 69 6c | 65 73 2e 4e 61 6d 65 29 |ame: Fil|es.Name)|
|00004860| 0d 4d 6f 64 61 6c 20 64 | 69 61 6c 6f 67 0d 41 73 |.Modal d|ialog.As|
|00004870| 6b 20 74 68 65 20 75 73 | 65 72 20 66 6f 72 20 61 |k the us|er for a|
|00004880| 20 66 69 6c 65 20 73 70 | 65 63 69 66 69 63 61 74 | file sp|ecificat|
|00004890| 69 6f 6e 20 66 6f 72 20 | 65 78 74 65 72 6e 61 6c |ion for |external|
|000048a0| 69 7a 69 6e 67 20 61 20 | 66 69 6c 65 2e 20 64 65 |izing a |file. de|
|000048b0| 66 4e 61 6d 65 20 69 73 | 20 74 68 65 20 64 65 66 |fName is| the def|
|000048c0| 61 75 6c 74 20 6e 61 6d | 65 20 70 72 65 73 65 6e |ault nam|e presen|
|000048d0| 74 65 64 20 74 6f 20 74 | 68 65 20 75 73 65 72 2e |ted to t|he user.|
|000048e0| 20 64 65 66 54 79 70 65 | 20 69 73 20 74 68 65 20 | defType| is the |
|000048f0| 66 69 6c 65 20 74 79 70 | 65 20 77 68 69 63 68 20 |file typ|e which |
|00004900| 73 68 6f 75 6c 64 20 62 | 65 20 75 73 65 64 20 61 |should b|e used a|
|00004910| 73 20 64 65 66 61 75 6c | 74 20 74 79 70 65 2e 20 |s defaul|t type. |
|00004920| 6c 6f 63 20 23 20 4e 49 | 4c 20 69 6e 64 69 63 61 |loc # NI|L indica|
|00004930| 74 65 73 20 61 20 76 61 | 6c 69 64 20 66 69 6c 65 |tes a va|lid file|
|00004940| 20 73 70 65 63 69 66 69 | 63 61 74 69 6f 6e 2e 0d | specifi|cation..|
|00004950| 0d 50 52 4f 43 45 44 55 | 52 45 20 47 65 74 43 6f |.PROCEDU|RE GetCo|
|00004960| 6c 6f 72 20 28 69 6e 3a | 20 4c 4f 4e 47 49 4e 54 |lor (in:| LONGINT|
|00004970| 3b 20 56 41 52 20 6f 75 | 74 3a 20 4c 4f 4e 47 49 |; VAR ou|t: LONGI|
|00004980| 4e 54 3b 20 56 41 52 20 | 73 65 74 3a 20 42 4f 4f |NT; VAR |set: BOO|
|00004990| 4c 45 41 4e 29 0d 4d 6f | 64 61 6c 20 64 69 61 6c |LEAN).Mo|dal dial|
|000049a0| 6f 67 0d 41 73 6b 20 74 | 68 65 20 75 73 65 72 20 |og.Ask t|he user |
|000049b0| 66 6f 72 20 61 20 63 6f | 6c 6f 72 2e 20 69 6e 20 |for a co|lor. in |
|000049c0| 69 73 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 63 |is the d|efault c|
|000049d0| 6f 6c 6f 72 20 70 72 65 | 73 65 6e 74 65 64 20 74 |olor pre|sented t|
|000049e0| 6f 20 74 68 65 20 75 73 | 65 72 2e 0d 0d 50 52 4f |o the us|er...PRO|
|000049f0| 43 45 44 55 52 45 20 43 | 61 6c 6c 20 28 63 6d 64 |CEDURE C|all (cmd|
|00004a00| 2c 20 65 72 72 6f 72 4d | 73 67 3a 20 41 52 52 41 |, errorM|sg: ARRA|
|00004a10| 59 20 4f 46 20 43 48 41 | 52 3b 20 56 41 52 20 72 |Y OF CHA|R; VAR r|
|00004a20| 65 73 3a 20 4c 4f 4e 47 | 49 4e 54 29 0d 43 61 6c |es: LONG|INT).Cal|
|00004a30| 6c 20 65 78 65 63 75 74 | 65 73 20 61 20 73 65 71 |l execut|es a seq|
|00004a40| 75 65 6e 63 65 20 6f 66 | 20 4f 62 65 72 6f 6e 20 |uence of| Oberon |
|00004a50| 63 6f 6d 6d 61 6e 64 73 | 20 28 69 2e 65 2e 20 61 |commands| (i.e. a|
|00004a60| 20 70 61 72 61 6d 65 74 | 65 72 6c 65 73 73 20 65 | paramet|erless e|
|00004a70| 78 70 6f 72 74 65 64 20 | 70 72 6f 63 65 64 75 72 |xported |procedur|
|00004a80| 65 73 29 20 64 65 6e 6f | 74 65 64 20 62 79 20 63 |es) deno|ted by c|
|00004a90| 6d 64 2e 20 49 66 20 74 | 68 65 20 63 6f 72 72 65 |md. If t|he corre|
|00004aa0| 73 70 6f 6e 64 69 6e 67 | 20 6d 6f 64 75 6c 65 73 |sponding| modules|
|00004ab0| 20 61 72 65 20 6e 6f 74 | 20 79 65 74 20 6c 6f 61 | are not| yet loa|
|00004ac0| 64 65 64 2c 20 43 61 6c | 6c 20 74 72 69 65 73 20 |ded, Cal|l tries |
|00004ad0| 74 6f 20 6c 6f 61 64 20 | 74 68 65 6d 2e 20 49 66 |to load |them. If|
|00004ae0| 20 73 6f 6d 65 20 65 72 | 72 6f 72 20 6f 63 63 75 | some er|ror occu|
|00004af0| 72 72 73 2c 20 63 6f 6d | 6d 61 6e 64 20 65 78 65 |rrs, com|mand exe|
|00004b00| 63 75 74 69 6f 6e 20 74 | 65 72 6d 69 6e 61 74 65 |cution t|erminate|
|00004b10| 73 20 61 6e 64 20 72 65 | 73 20 69 73 20 72 65 74 |s and re|s is ret|
|00004b20| 75 72 6e 65 64 20 77 69 | 74 68 20 61 20 76 61 6c |urned wi|th a val|
|00004b30| 75 65 20 23 20 30 2e 20 | 49 66 20 65 72 72 6f 72 |ue # 0. |If error|
|00004b40| 4d 73 67 20 3d 20 22 22 | 2c 20 43 61 6c 6c 20 64 |Msg = ""|, Call d|
|00004b50| 6f 65 73 20 6e 6f 74 20 | 64 69 73 70 6c 61 79 20 |oes not |display |
|00004b60| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 73 2e 20 |error me|ssages. |
|00004b70| 49 66 20 65 72 72 6f 72 | 4d 73 67 20 23 20 22 22 |If error|Msg # ""|
|00004b80| 2c 20 43 61 6c 6c 20 64 | 69 73 70 6c 61 79 73 20 |, Call d|isplays |
|00004b90| 65 72 72 6f 72 4d 73 67 | 20 69 6e 20 63 61 73 65 |errorMsg| in case|
|00004ba0| 20 6f 66 20 61 6e 20 65 | 72 72 6f 72 2c 20 61 70 | of an e|rror, ap|
|00004bb0| 70 65 6e 64 65 64 20 77 | 69 74 68 20 61 20 73 68 |pended w|ith a sh|
|00004bc0| 6f 72 74 20 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |ort desc|ription |
|00004bd0| 6f 66 20 74 68 65 20 70 | 61 72 74 69 63 75 6c 61 |of the p|articula|
|00004be0| 72 20 65 72 72 6f 72 20 | 68 61 76 69 6e 67 20 6f |r error |having o|
|00004bf0| 63 63 75 72 72 65 64 2e | 0d 0d 50 52 4f 43 45 44 |ccurred.|..PROCED|
|00004c00| 55 52 45 20 42 65 65 70 | 0d 45 6d 69 74 20 61 20 |URE Beep|.Emit a |
|00004c10| 73 68 6f 72 74 20 62 65 | 65 70 20 73 6f 75 6e 64 |short be|ep sound|
|00004c20| 2e 82 f1 54 65 78 74 43 | 6f 6e 74 72 6f 6c 6c 65 |...TextC|ontrolle|
|00004c30| 72 73 2e 53 74 64 43 74 | 72 6c 44 65 73 63 00 f1 |rs.StdCt|rlDesc..|
|00004c40| 54 65 78 74 43 6f 6e 74 | 72 6f 6c 6c 65 72 73 2e |TextCont|rollers.|
|00004c50| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f1 |Controll|erDesc..|
|00004c60| 43 6f 6e 74 61 69 6e 65 | 72 73 2e 43 6f 6e 74 72 |Containe|rs.Contr|
|00004c70| 6f 6c 6c 65 72 44 65 73 | 63 00 f1 43 6f 6e 74 72 |ollerDes|c..Contr|
|00004c80| 6f 6c 6c 65 72 73 2e 43 | 6f 6e 74 72 6f 6c 6c 65 |ollers.C|ontrolle|
|00004c90| 72 44 65 73 63 00 f2 04 | 00 00 00 00 00 00 00 14 |rDesc...|........|
|00004ca0| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00004cb0| 00 00 00 00 00 00 01 82 | f2 0e 00 00 00 00 00 00 |........|........|
|00004cc0| 00 61 00 00 00 07 00 00 | 00 59 00 00 00 00 00 00 |.a......|.Y......|
|00004cd0| 83 f2 10 00 00 00 00 00 | 00 00 00 00 00 00 08 00 |........|........|
|00004ce0| 00 00 3f 00 00 00 00 00 | 00 00 82 f2 12 00 00 00 |..?.....|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 24 00 00 00 |........|....$...|
|00004d00| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d10| 00 00 c8 0d 02 00 c0 a8 | 00 00 88 b6 02 00 03 00 |........|........|
|00004d20| 00 00 00 00 00 00 82 f2 | 0d 00 00 00 00 00 00 00 |........|........|
|00004d30| 00 00 00 00 00 00 00 00 | 1e 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 01 00 00 00 00 41 72 | 69 61 6c 00 7c be 01 00 |......Ar|ial.|...|
|00004d50| 00 00 00 00 90 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 e0 8c 01 00 e0 8c | 01 00 34 c8 5d 00 e0 b9 |........|..4.]...|
|00004d70| 3b 3e 82 f1 44 6f 63 75 | 6d 65 6e 74 73 2e 43 6f |;>..Docu|ments.Co|
|00004d80| 6e 74 72 6f 6c 6c 65 72 | 44 65 73 63 00 f2 15 00 |ntroller|Desc....|
|00004d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 08 00 |........|........|
|00004da0| 00 00 00 00 00 00 00 09 | 00 00 00 00 94 4d 73 00 |........|.....Ms.|
|00004db0| 18 2b a3 00 80 fc 0a 00 | 00 2f 0d 00 d4 37 67 00 |.+......|./...7g.|
|00004dc0| 98 2e 98 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00004e10| 00 00 02 fc 00 48 32 24 | 00 10 32 39 00 08 00 00 |.....H2$|..29....|
|00004e20| 00 00 07 00 00 00 39 8c | 00 07 6c 23 00 01 00 00 |......9.|..l#....|
|00004e30| 06 44 69 61 6c 6f 67 44 | 02 00 00 00 50 61 72 74 |.DialogD|....Part|
|00004e40| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 49 15 |SIT!....|......I.|
|00004e50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00004e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e70| 00 00 ae 04 81 c6 00 00 | 00 00 00 00 01 3e 5b 18 |........|.....>[.|
|00004e80| 00 03 5b 68 00 02 07 00 | 00 00 4c be 00 23 5b 76 |..[h....|..L..#[v|
|00004e90| 00 01 5b 79 00 01 5b 7d | 00 01 07 00 00 00 4c be |..[y..[}|......L.|
|00004ea0| 00 26 5b 80 00 01 5b c7 | 00 04 5b d5 00 03 07 ff |.&[...[.|..[.....|
|00004eb0| 00 00 76 1a 00 fe 76 1a | 00 02 00 00 00 00 00 00 |..v...v.|........|
|00004ec0| 00 00 07 00 00 00 66 98 | 00 05 43 51 00 03 43 56 |......f.|..CQ..CV|
|00004ed0| 00 01 00 00 00 00 07 00 | 00 00 66 98 00 05 43 51 |........|..f...CQ|
|00004ee0| 00 03 43 56 00 01 00 00 | 00 00 07 00 00 00 66 98 |..CV....|......f.|
|00004ef0| 00 05 43 51 00 03 43 56 | 00 01 00 00 00 00 07 00 |..CQ..CV|........|
|00004f00| 00 00 00 08 00 50 00 05 | 01 db 02 00 00 00 01 00 |.....P..|........|
|00004f10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 59 ba e8 |........|...2.Y..|
|00004f20| 11 a2 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00004f30| 00 0a 00 01 ff ff 00 00 | 00 00 00 59 bd 30 00 00 |........|...Y.0..|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+